ಪರಿವಿಡಿ
ಮೈಕ್ರೋಸಾಫ್ಟ್ ಎಕ್ಸೆಲ್ ಹಲವಾರು ಕೋಷ್ಟಕಗಳಿಂದ (ವಿವಿಧ ಹಾಳೆಗಳಿಂದ ಅಥವಾ ವಿಭಿನ್ನ ಫೈಲ್‌ಗಳಿಂದ) ಡೇಟಾವನ್ನು ಸಂಗ್ರಹಿಸಲು ಹಲವು ಸಾಧನಗಳನ್ನು ಹೊಂದಿದೆ: ನೇರ ಲಿಂಕ್‌ಗಳು, ಕಾರ್ಯ ಪರೋಕ್ಷ (ಭಾರತೀಯ), ಪವರ್ ಕ್ವೆರಿ ಮತ್ತು ಪವರ್ ಪಿವೋಟ್ ಆಡ್-ಆನ್‌ಗಳು, ಇತ್ಯಾದಿ. ಬ್ಯಾರಿಕೇಡ್‌ನ ಈ ಬದಿಯಿಂದ, ಎಲ್ಲವೂ ಉತ್ತಮವಾಗಿ ಕಾಣುತ್ತದೆ.
ಆದರೆ ನೀವು ವಿಲೋಮ ಸಮಸ್ಯೆಗೆ ಸಿಲುಕಿದರೆ - ಒಂದು ಕೋಷ್ಟಕದಿಂದ ವಿವಿಧ ಹಾಳೆಗಳಿಗೆ ಡೇಟಾವನ್ನು ಹರಡುವುದು - ನಂತರ ಎಲ್ಲವೂ ಹೆಚ್ಚು ದುಃಖಕರವಾಗಿರುತ್ತದೆ. ಈ ಸಮಯದಲ್ಲಿ, ದುರದೃಷ್ಟವಶಾತ್, ಎಕ್ಸೆಲ್ನ ಆರ್ಸೆನಲ್ನಲ್ಲಿ ಅಂತಹ ಡೇಟಾ ಬೇರ್ಪಡಿಕೆಗಾಗಿ ಯಾವುದೇ ನಾಗರಿಕ ಅಂತರ್ನಿರ್ಮಿತ ಸಾಧನಗಳಿಲ್ಲ. ಆದ್ದರಿಂದ ನೀವು ವಿಷುಯಲ್ ಬೇಸಿಕ್‌ನಲ್ಲಿ ಮ್ಯಾಕ್ರೋವನ್ನು ಬಳಸಬೇಕಾಗುತ್ತದೆ ಅಥವಾ ಮ್ಯಾಕ್ರೋ ರೆಕಾರ್ಡರ್ + ಪವರ್ ಕ್ವೆರಿ ಸಂಯೋಜನೆಯನ್ನು ಸ್ವಲ್ಪ "ಫೈಲ್ ರಿಫೈನ್‌ಮೆಂಟ್" ಜೊತೆಗೆ ಬಳಸಿ.
ಇದನ್ನು ಹೇಗೆ ಕಾರ್ಯಗತಗೊಳಿಸಬಹುದು ಎಂಬುದನ್ನು ಹತ್ತಿರದಿಂದ ನೋಡೋಣ.
ಸಮಸ್ಯೆಯ ಸೂತ್ರೀಕರಣ
ಮಾರಾಟಕ್ಕಾಗಿ 5000 ಕ್ಕಿಂತ ಹೆಚ್ಚು ಸಾಲುಗಳ ಗಾತ್ರದೊಂದಿಗೆ ಅಂತಹ ಟೇಬಲ್ ಅನ್ನು ನಾವು ಆರಂಭಿಕ ಡೇಟಾವಾಗಿ ಹೊಂದಿದ್ದೇವೆ:
ಕಾರ್ಯ: ಈ ಪುಸ್ತಕದ ಪ್ರತ್ಯೇಕ ಹಾಳೆಗಳಲ್ಲಿ ನಗರದ ಮೂಲಕ ಈ ಕೋಷ್ಟಕದಿಂದ ಡೇಟಾವನ್ನು ವಿತರಿಸಲು. ಆ. ಔಟ್‌ಪುಟ್‌ನಲ್ಲಿ, ನೀವು ಪ್ರತಿ ಹಾಳೆಯಲ್ಲಿ ಅನುಗುಣವಾದ ನಗರದಲ್ಲಿ ಮಾರಾಟವಾಗಿದ್ದ ಟೇಬಲ್‌ನಿಂದ ಆ ಸಾಲುಗಳನ್ನು ಮಾತ್ರ ಪಡೆಯಬೇಕು:
ತಯಾರು
ಮ್ಯಾಕ್ರೋ ಕೋಡ್ ಅನ್ನು ಸಂಕೀರ್ಣಗೊಳಿಸದಿರಲು ಮತ್ತು ಸಾಧ್ಯವಾದಷ್ಟು ಸುಲಭವಾಗಿ ಅರ್ಥಮಾಡಿಕೊಳ್ಳಲು, ನಾವು ಒಂದೆರಡು ಪೂರ್ವಸಿದ್ಧತಾ ಹಂತಗಳನ್ನು ಮಾಡೋಣ.
ಮೊದಲು, ದಿ ಪ್ರತ್ಯೇಕ ಲುಕಪ್ ಟೇಬಲ್ ಅನ್ನು ರಚಿಸಿ, ಅಲ್ಲಿ ಒಂದೇ ಕಾಲಮ್ ನೀವು ಪ್ರತ್ಯೇಕ ಹಾಳೆಗಳನ್ನು ರಚಿಸಲು ಬಯಸುವ ಎಲ್ಲಾ ನಗರಗಳನ್ನು ಪಟ್ಟಿ ಮಾಡುತ್ತದೆ. ಸಹಜವಾಗಿ, ಈ ಡೈರೆಕ್ಟರಿಯು ಮೂಲ ಡೇಟಾದಲ್ಲಿ ಇರುವ ಎಲ್ಲಾ ನಗರಗಳನ್ನು ಹೊಂದಿಲ್ಲದಿರಬಹುದು, ಆದರೆ ನಮಗೆ ವರದಿಗಳು ಬೇಕಾಗಿರುವುದು ಮಾತ್ರ. ಅಂತಹ ಕೋಷ್ಟಕವನ್ನು ರಚಿಸಲು ಸುಲಭವಾದ ಮಾರ್ಗವೆಂದರೆ ಆಜ್ಞೆಯನ್ನು ಬಳಸುವುದು ಡೇಟಾ - ನಕಲುಗಳನ್ನು ತೆಗೆದುಹಾಕಿ (ಡೇಟಾ - ನಕಲುಗಳನ್ನು ತೆಗೆದುಹಾಕಿ) ಕಾಲಮ್ ಪ್ರತಿಗಾಗಿ ನಗರ ಅಥವಾ ಕಾರ್ಯ UNIK (ವಿಶಿಷ್ಟ) - ನೀವು ಎಕ್ಸೆಲ್ 365 ನ ಇತ್ತೀಚಿನ ಆವೃತ್ತಿಯನ್ನು ಹೊಂದಿದ್ದರೆ.
ಎಕ್ಸೆಲ್‌ನಲ್ಲಿ ಹೊಸ ಶೀಟ್‌ಗಳು ಪ್ರಸ್ತುತ (ಹಿಂದಿನ) ಒಂದಕ್ಕಿಂತ ಮೊದಲು (ಎಡಕ್ಕೆ) ಪೂರ್ವನಿಯೋಜಿತವಾಗಿ ರಚಿಸಲ್ಪಟ್ಟಿರುವುದರಿಂದ, ಈ ಡೈರೆಕ್ಟರಿಯಲ್ಲಿ ನಗರಗಳನ್ನು ಅವರೋಹಣ ಕ್ರಮದಲ್ಲಿ (Z ನಿಂದ A ವರೆಗೆ) ವಿಂಗಡಿಸಲು ಸಹ ಅರ್ಥಪೂರ್ಣವಾಗಿದೆ - ನಂತರ ರಚನೆಯ ನಂತರ, ನಗರ ಹಾಳೆಗಳನ್ನು ವರ್ಣಮಾಲೆಯಂತೆ ಜೋಡಿಸಲಾಗುವುದು.
ಎರಡನೆಯದಾಗಿ, ದಿ пಎರಡೂ ಕೋಷ್ಟಕಗಳನ್ನು ಡೈನಾಮಿಕ್ ಆಗಿ ಪರಿವರ್ತಿಸಿ ("ಸ್ಮಾರ್ಟ್") ಅವರೊಂದಿಗೆ ಕೆಲಸ ಮಾಡಲು ಸುಲಭವಾಗುತ್ತದೆ. ನಾವು ಆಜ್ಞೆಯನ್ನು ಬಳಸುತ್ತೇವೆ ಮುಖಪುಟ - ಟೇಬಲ್ ಆಗಿ ಫಾರ್ಮ್ಯಾಟ್ ಮಾಡಿ (ಮುಖಪುಟ - ಟೇಬಲ್ ಆಗಿ ಫಾರ್ಮ್ಯಾಟ್ ಮಾಡಿ) ಅಥವಾ ಕೀಬೋರ್ಡ್ ಶಾರ್ಟ್‌ಕಟ್ Ctrl+T. ಕಾಣಿಸಿಕೊಳ್ಳುವ ಟ್ಯಾಬ್‌ನಲ್ಲಿ ನಿರ್ಮಾಣಕಾರ (ವಿನ್ಯಾಸ) ಅವರನ್ನು ಕರೆಯೋಣ ಟೇಬಲ್ ಪ್ರೊಡಾಜಿ и ಟೇಬಲ್ಸಿಟಿ, ಕ್ರಮವಾಗಿ:
ವಿಧಾನ 1. ಹಾಳೆಗಳ ಮೂಲಕ ವಿಭಜನೆಗಾಗಿ ಮ್ಯಾಕ್ರೋ
ಸುಧಾರಿತ ಟ್ಯಾಬ್‌ನಲ್ಲಿ ಡೆವಲಪರ್ (ಡೆವಲಪರ್) ಬಟನ್ ಮೇಲೆ ಕ್ಲಿಕ್ ಮಾಡಿ ವಿಷುಯಲ್ ಬೇಸಿಕ್ ಅಥವಾ ಕೀಬೋರ್ಡ್ ಶಾರ್ಟ್‌ಕಟ್ ಬಳಸಿ ಆಲ್ಟ್+F11. ತೆರೆಯುವ ಮ್ಯಾಕ್ರೋ ಎಡಿಟರ್ ವಿಂಡೋದಲ್ಲಿ, ಮೆನು ಮೂಲಕ ಹೊಸ ಖಾಲಿ ಮಾಡ್ಯೂಲ್ ಅನ್ನು ಸೇರಿಸಿ ಸೇರಿಸಿ - ಮಾಡ್ಯೂಲ್ ಮತ್ತು ಕೆಳಗಿನ ಕೋಡ್ ಅನ್ನು ಅಲ್ಲಿ ನಕಲಿಸಿ:
ಉಪ ಸ್ಪ್ಲಿಟರ್() ಶ್ರೇಣಿಯಲ್ಲಿರುವ ಪ್ರತಿಯೊಂದು ಕೋಶಕ್ಕೆ("таблГорода") ಶ್ರೇಣಿ("таблПродажи").ಸ್ವಯಂ ಫಿಲ್ಟರ್ ಕ್ಷೇತ್ರ:=3, ಮಾನದಂಡ1:=ಸೆಲ್.ಮೌಲ್ಯ ಶ್ರೇಣಿ("TаблПродажи[#ವಿಶೇಷವಾಗಿ Sheets.Add ActiveSheet.Paste ActiveSheet.Name = cell.Value ActiveSheet.UsedRange.Columns.AutoFit ಮುಂದಿನ ಸೆಲ್ ವರ್ಕ್‌ಶೀಟ್‌ಗಳು("Данные").ShowAllData End Sub ಇಲ್ಲಿ ಲೂಪ್ನೊಂದಿಗೆ ಪ್ರತಿಯೊಂದಕ್ಕೂ ... ಮುಂದೆ ಡೈರೆಕ್ಟರಿಯ ಕೋಶಗಳ ಮೂಲಕ ಅಂಗೀಕಾರವನ್ನು ಅಳವಡಿಸಲಾಗಿದೆ ಟೇಬಲ್ಸಿಟಿ, ಪ್ರತಿ ನಗರಕ್ಕೆ ಅದನ್ನು ಎಲ್ಲಿ ಫಿಲ್ಟರ್ ಮಾಡಲಾಗುತ್ತದೆ (ವಿಧಾನ ಆಟೋಫಿಲ್ಟರ್) ಮೂಲ ಮಾರಾಟ ಕೋಷ್ಟಕದಲ್ಲಿ ಮತ್ತು ನಂತರ ಫಲಿತಾಂಶಗಳನ್ನು ಹೊಸದಾಗಿ ರಚಿಸಿದ ಹಾಳೆಗೆ ನಕಲಿಸುವುದು. ದಾರಿಯುದ್ದಕ್ಕೂ, ರಚಿಸಿದ ಹಾಳೆಯನ್ನು ನಗರದ ಅದೇ ಹೆಸರಿಗೆ ಮರುಹೆಸರಿಸಲಾಗುತ್ತದೆ ಮತ್ತು ಸೌಂದರ್ಯಕ್ಕಾಗಿ ಕಾಲಮ್‌ಗಳ ಅಗಲವನ್ನು ಸ್ವಯಂ-ಹೊಂದಿಸುವಿಕೆಯನ್ನು ಆನ್ ಮಾಡಲಾಗಿದೆ.
ನೀವು ಟ್ಯಾಬ್‌ನಲ್ಲಿ ಎಕ್ಸೆಲ್‌ನಲ್ಲಿ ರಚಿಸಿದ ಮ್ಯಾಕ್ರೋವನ್ನು ಚಲಾಯಿಸಬಹುದು ಡೆವಲಪರ್ ಬಟನ್ ಮ್ಯಾಕ್ರೋಸ್ (ಡೆವಲಪರ್ - ಮ್ಯಾಕ್ರೋಸ್) ಅಥವಾ ಕೀಬೋರ್ಡ್ ಶಾರ್ಟ್‌ಕಟ್ ಆಲ್ಟ್+F8.
ವಿಧಾನ 2. ಪವರ್ ಕ್ವೆರಿಯಲ್ಲಿ ಬಹು ಪ್ರಶ್ನೆಗಳನ್ನು ರಚಿಸಿ
ಹಿಂದಿನ ವಿಧಾನವು ಅದರ ಎಲ್ಲಾ ಸಾಂದ್ರತೆ ಮತ್ತು ಸರಳತೆಗಾಗಿ ಗಮನಾರ್ಹ ನ್ಯೂನತೆಯನ್ನು ಹೊಂದಿದೆ - ಮೂಲ ಮಾರಾಟ ಕೋಷ್ಟಕದಲ್ಲಿ ಬದಲಾವಣೆಗಳನ್ನು ಮಾಡಿದಾಗ ಮ್ಯಾಕ್ರೋನಿಂದ ರಚಿಸಲಾದ ಹಾಳೆಗಳನ್ನು ನವೀಕರಿಸಲಾಗುವುದಿಲ್ಲ. ಫ್ಲೈನಲ್ಲಿ ನವೀಕರಿಸುವುದು ಅಗತ್ಯವಿದ್ದರೆ, ನೀವು VBA + ಪವರ್ ಕ್ವೆರಿ ಬಂಡಲ್ ಅನ್ನು ಬಳಸಬೇಕಾಗುತ್ತದೆ, ಅಥವಾ ಬದಲಿಗೆ, ಮ್ಯಾಕ್ರೋವನ್ನು ಬಳಸಿಕೊಂಡು ರಚಿಸುವುದು ಸ್ಥಿರ ಡೇಟಾದೊಂದಿಗೆ ಹಾಳೆಗಳನ್ನು ಮಾತ್ರವಲ್ಲ, ಆದರೆ ನವೀಕರಿಸಿದ ಪವರ್ ಕ್ವೆರಿ ಪ್ರಶ್ನೆಗಳು.
ಈ ಸಂದರ್ಭದಲ್ಲಿ ಮ್ಯಾಕ್ರೋ ಹಿಂದಿನದಕ್ಕೆ ಭಾಗಶಃ ಹೋಲುತ್ತದೆ (ಇದು ಚಕ್ರವನ್ನು ಸಹ ಹೊಂದಿದೆ ಪ್ರತಿಯೊಂದಕ್ಕೂ ... ಮುಂದೆ ಡೈರೆಕ್ಟರಿಯಲ್ಲಿ ನಗರಗಳ ಮೇಲೆ ಪುನರಾವರ್ತನೆ ಮಾಡಲು), ಆದರೆ ಲೂಪ್ ಒಳಗೆ ಇನ್ನು ಮುಂದೆ ಫಿಲ್ಟರಿಂಗ್ ಮತ್ತು ನಕಲು ಮಾಡಲಾಗುವುದಿಲ್ಲ, ಆದರೆ ಪವರ್ ಕ್ವೆರಿ ಪ್ರಶ್ನೆಯನ್ನು ರಚಿಸುವುದು ಮತ್ತು ಅದರ ಫಲಿತಾಂಶಗಳನ್ನು ಹೊಸ ಹಾಳೆಗೆ ಅಪ್‌ಲೋಡ್ ಮಾಡುವುದು:
ಸಬ್ ಸ್ಪ್ಲಿಟರ್2() ಶ್ರೇಣಿಯಲ್ಲಿರುವ ಪ್ರತಿಯೊಂದು ಕೋಶಕ್ಕೆ("ಸಿಟಿ ಟೇಬಲ್") ActiveWorkbook.Queries.ಹೆಸರನ್ನು ಸೇರಿಸಿ:=ಸೆಲ್.ಮೌಲ್ಯ, ಸೂತ್ರ:= _ "ಲೆಟ್" & Chr(13) & "" & Chr(10) & " ಮೂಲ = Excel.CurrentWorkbook(){[Name=""TableSales""]}[ವಿಷಯ]," & Chr(13) & "" & Chr(10) & " #""ಬದಲಾದ ಪ್ರಕಾರ"" = Table.TransformColumnTypes(ಮೂಲ , {{""ವರ್ಗ"", ಟೈಪ್ ಟೆಕ್ಸ್ಟ್}, {""ಹೆಸರು"", ಟೈಪ್ ಟೆಕ್ಸ್ಟ್}, {""ನಗರ"", ಟೈಪ್ ಟೆಕ್ಸ್ಟ್}, {""ಮ್ಯಾನೇಜರ್"", ಟೈಪ್ ಟೆಕ್ಸ್ಟ್}, {""ಡೀಲ್ ದಿನಾಂಕ "", ದಿನಾಂಕದ ಸಮಯ ಟೈಪ್ ಮಾಡಿ}, {""ವೆಚ್ಚ"", ಟೈಪ್ ಸಂಖ್ಯೆ}})," & Chr(13) & "" & Chr(10) & " #""ಅನ್ವಯಿಸಲಾದ ಫಿಲ್ಟರ್‌ನೊಂದಿಗೆ ಸಾಲುಗಳು" = Table.Se " & _ "lectRows(#""ಬದಲಾದ ಪ್ರಕಾರ"", ಪ್ರತಿ ([ನಗರ] = """ & ಕೋಶ. ಮೌಲ್ಯ & """))" & Chr(13) & "" & Chr(10) & "in " & Chr(13) & "" & Chr(10) & " #""ಸಾಲುಗಳನ್ನು ಅನ್ವಯಿಸಲಾಗಿದೆ""" ActiveWorkbook.Worksheets.Add with ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _ "OLEDB; ಒದಗಿಸುವವರು =Microsoft.Mashup.OleDb.1;ಡೇಟಾ ಮೂಲ=$ವರ್ಕ್‌ಬುಕ್$;ಸ್ಥಳ="&ಸೆಲ್.ಮೌಲ್ಯ & ";ವಿಸ್ತೃತ ಪ್ರಾಪರ್ಟೀಸ್=""""" _ , ಗಮ್ಯಸ್ಥಾನ:=ರೇಂಜ್("$A$1")). QueryTable .CommandType = xlCmd Sql .CommandText = Array("SELECT *ನಿಂದ [" & cell.Value & "]") .RowNumbers = ತಪ್ಪು .FillAdjacentFormulas = ತಪ್ಪು .PreserveFormatting = ಸರಿ .RefreshOnFileOpen = ತಪ್ಪು .BackgroundQuery = ಸರಿ SaveData = ಸರಿ .AdjustColumnWidth = True .RefreshPeriod = 0 .PreserveColumnInfo = True .ListObject.DisplayName = cell.Value ಅದರ ಪ್ರಾರಂಭದ ನಂತರ, ನಾವು ನಗರದ ಮೂಲಕ ಅದೇ ಹಾಳೆಗಳನ್ನು ನೋಡುತ್ತೇವೆ, ಆದರೆ ಈಗಾಗಲೇ ರಚಿಸಲಾದ ಪವರ್ ಕ್ವೆರಿ ಪ್ರಶ್ನೆಗಳು ಅವುಗಳನ್ನು ರಚಿಸುತ್ತವೆ:
ಮೂಲ ಡೇಟಾದಲ್ಲಿನ ಯಾವುದೇ ಬದಲಾವಣೆಗಳೊಂದಿಗೆ, ಸರಿಯಾದ ಮೌಸ್ ಗುಂಡಿಯೊಂದಿಗೆ ಅನುಗುಣವಾದ ಟೇಬಲ್ ಅನ್ನು ನವೀಕರಿಸಲು ಸಾಕು - ಆಜ್ಞೆ ನವೀಕರಿಸಿ ಮತ್ತು ಉಳಿಸಿ (ರಿಫ್ರೆಶ್) ಅಥವಾ ಬಟನ್ ಅನ್ನು ಬಳಸಿಕೊಂಡು ಎಲ್ಲಾ ನಗರಗಳನ್ನು ಒಂದೇ ಬಾರಿಗೆ ದೊಡ್ಡ ಪ್ರಮಾಣದಲ್ಲಿ ನವೀಕರಿಸಿ ಎಲ್ಲವನ್ನು ಆಧುನೀಕರಿಸು ಟ್ಯಾಬ್ ಡೇಟಾ (ಡೇಟಾ - ಎಲ್ಲವನ್ನು ರಿಫ್ರೆಶ್ ಮಾಡಿ).
- ಮ್ಯಾಕ್ರೋಗಳು ಯಾವುವು, ಅವುಗಳನ್ನು ಹೇಗೆ ರಚಿಸುವುದು ಮತ್ತು ಬಳಸುವುದು
- ವರ್ಕ್‌ಬುಕ್ ಹಾಳೆಗಳನ್ನು ಪ್ರತ್ಯೇಕ ಫೈಲ್‌ಗಳಾಗಿ ಉಳಿಸಲಾಗುತ್ತಿದೆ
- ಪುಸ್ತಕದ ಎಲ್ಲಾ ಹಾಳೆಗಳಿಂದ ಡೇಟಾವನ್ನು ಒಂದೇ ಕೋಷ್ಟಕದಲ್ಲಿ ಸಂಗ್ರಹಿಸುವುದು