የጠረጴዛ ዳግም ዲዛይነር

ማውጫ

አብዛኛዎቹ የኤክሴል ተጠቃሚዎች በሉሆች ላይ ጠረጴዛዎችን ሲፈጥሩ በመጀመሪያ ስለራሳቸው ምቾት እና ምቾት እንደሚያስቡ ምስጢር አይደለም ። ውስብስብ “ራስጌዎች” ያሏቸው ቆንጆ ፣ በቀለማት ያሸበረቁ እና አስቸጋሪ ጠረጴዛዎች የተወለዱት እንደዚህ ነው ፣ በተመሳሳይ ጊዜ ፣ ​​በጭራሽ ሊጣሩ ወይም ሊደረደሩ አይችሉም ፣ እና ስለ አውቶማቲክ ሪፖርት ከምስሶ ሠንጠረዥ ጋር በጭራሽ አለማሰቡ የተሻለ ነው።

ፈጥኖም ይሁን ዘግይቶ የእንደዚህ ዓይነቱ ጠረጴዛ ተጠቃሚ “በጣም ቆንጆ ላይሆን ይችላል ፣ ግን ሊሠራ ይችላል” ወደሚል መደምደሚያ ይደርሳል እና የጠረጴዛውን ንድፍ ቀላል ማድረግ ይጀምራል ፣ ይህም ከጥንታዊ ምክሮች ጋር ይመሳሰላል-

  • ቀላል ባለ አንድ መስመር ራስጌ፣ እያንዳንዱ አምድ የራሱ የሆነ ልዩ ስም (የመስክ ስም) ይኖረዋል።
  • አንድ መስመር - አንድ የተጠናቀቀ ክዋኔ (ስምምነት ፣ ሽያጭ ፣ መለጠፍ ፣ ፕሮጀክት ፣ ወዘተ.)
  • ምንም የተዋሃዱ ሴሎች የሉም
  • ያለ እረፍት በባዶ ረድፎች እና አምዶች መልክ

ነገር ግን ባለ አንድ መስመር ራስጌን ከአንድ ባለ ብዙ ደረጃ ላይ ካደረጉት ወይም አንድ አምድ ወደ ብዙ ከተከፋፈሉ በጣም ቀላል ነው, ከዚያም የጠረጴዛው መልሶ መገንባት ብዙ ጊዜ ሊወስድ ይችላል (በተለይም በትላልቅ መጠኖች). የሚከተለው ሁኔታ ማለት ነው.

Of     የጠረጴዛ ዳግም ዲዛይነር   do     የጠረጴዛ ዳግም ዲዛይነር  

ከመረጃ ቋቶች አንጻር ትክክለኛው ሰንጠረዥ ብዙውን ጊዜ ጠፍጣፋ (ጠፍጣፋ) ተብሎ ይጠራል - በእንደዚህ ዓይነት ሰንጠረዦች መሠረት የምሰሶ ሰንጠረዦችን (የምስሶ ሰንጠረዦችን) ሪፖርቶችን መገንባት እና ትንታኔዎችን ማካሄድ ጥሩ ነው ።

ቀላል ማክሮ በመጠቀም ባለ ሁለት ገጽታ ጠረጴዛን ወደ ጠፍጣፋ ጠረጴዛ መቀየር ይችላሉ. በትሩ በኩል Visual Basic Editor ን ይክፈቱ ገንቢ - Visual Basic (ገንቢ - ቪዥዋል ቤዚክ አርታዒ) ወይም የቁልፍ ሰሌዳ አቋራጭ alt+F11. አዲስ ሞጁል አስገባ (አስገባ - ሞጁል) እና የዚህን ማክሮ ጽሑፍ እዚያ ይቅዱ፡-

ንዑስ ዳግም ዲዛይነር() Dim i As Long Dim hc እንደ ኢንቲጀር፣ hr እንደ ኢንቲጀር ዲም ns እንደ የስራ ሉህ hr = InputBox("Сколько строк с подписями сверху?") hc = InputBox ("Сколько строк с подписями сверху?") hc = InputBox ("Сколькост) ማመልከቻ?" የውሸት i = 1 Set inpdata = ምርጫ አዘጋጅ ns = የስራ ሉሆች ጨምር ለ r = (hr + 1) inpdata.Rows.Count For c = (hc + 1) ወደ inpdata.Columns.Count For j = 1 To hc ns. ሴሎች (i, j) = inpdata.ሴሎች (r, j) ቀጣይ j ለ k = 1 ወደ hr ns. ሕዋሳት (i, j + k - 1) = inpdata. ሕዋሳት (k, c) ቀጣይ k ns. ሕዋሳት ( i, j + k - 1) = inpdata.ሴሎች(r, c) i = i + 1 ቀጣይ ሐ ቀጣይ r መጨረሻ ንዑስ  

ከዚያ የ VBA አርታዒውን መዝጋት እና ወደ ኤክሴል መመለስ ይችላሉ. አሁን ዋናውን ሠንጠረዥ (ሙሉ በሙሉ ከራስጌ ጋር እና የመጀመሪያውን አምድ ከወራት ጋር) መርጠን ማክሮችንን እናካሂዳለን። ገንቢ - ማክሮዎች (ገንቢ - ማክሮ) ወይም ጥምረት መጫን alt+F8.

ማክሮው በመጽሐፉ ውስጥ አዲስ ሉህ ያስገባል እና በላዩ ላይ የተመረጠውን ሰንጠረዥ አዲስ፣ እንደገና የተሰራ ስሪት ይፈጥራል። ትላልቅ ዝርዝሮችን ለማቀናበር እና ለመተንተን ሙሉውን የ Excel መሳሪያዎችን በመጠቀም ከእንደዚህ ዓይነት ሠንጠረዥ ጋር መሥራት ይችላሉ ።

  • ማክሮዎች ምንድን ናቸው ፣ በ VBA ውስጥ ማክሮ ኮድ የት እንደሚያስገባ ፣ እንዴት እንደሚጠቀሙባቸው
  • በPivotTables ሪፖርቶችን መፍጠር
  • ከPLEX add-on የ XNUMXD ሰንጠረዦችን ወደ ጠፍጣፋ ለመንደፍ መሳሪያ

 

መልስ ይስጡ