ಸಂಚಿತ ಕೋಶ (ಸಂಚಿತ)

ಆಗಾಗ್ಗೆ, ನಾವು ಒಂದು ಕೋಶಕ್ಕೆ ಅನುಕ್ರಮವಾಗಿ ನಮೂದಿಸಿದ ಹಲವಾರು ಮೌಲ್ಯಗಳನ್ನು ಒಟ್ಟುಗೂಡಿಸಬೇಕಾದಾಗ (ಸಂಗ್ರಹಿಸುವ) ಪರಿಸ್ಥಿತಿ ಉದ್ಭವಿಸುತ್ತದೆ:

ಆ. ಉದಾಹರಣೆಗೆ, ನೀವು ಸೆಲ್ A1 ನಲ್ಲಿ ಸಂಖ್ಯೆ 5 ಅನ್ನು ನಮೂದಿಸಿದರೆ, ನಂತರ ಸಂಖ್ಯೆ 1 B15 ನಲ್ಲಿ ಕಾಣಿಸಿಕೊಳ್ಳಬೇಕು. ನೀವು A1 ನಲ್ಲಿ ಸಂಖ್ಯೆ 7 ಅನ್ನು ನಮೂದಿಸಿದರೆ, ನಂತರ 1 ಸೆಲ್ B22 ನಲ್ಲಿ ಕಾಣಿಸಿಕೊಳ್ಳಬೇಕು, ಇತ್ಯಾದಿ. ಸಾಮಾನ್ಯವಾಗಿ, ಯಾವ ಲೆಕ್ಕಪರಿಶೋಧಕರು (ಮತ್ತು ಅವರು ಮಾತ್ರವಲ್ಲ) ಸಂಚಿತ ಒಟ್ಟು ಎಂದು ಕರೆಯುತ್ತಾರೆ.

ಸರಳವಾದ ಮ್ಯಾಕ್ರೋವನ್ನು ಬಳಸಿಕೊಂಡು ನೀವು ಅಂತಹ ಶೇಖರಣಾ ಕೋಶ-ಸಂಚಯಕವನ್ನು ಕಾರ್ಯಗತಗೊಳಿಸಬಹುದು. ಕೋಶಗಳು A1 ಮತ್ತು B1 ಇರುವ ಹಾಳೆಯ ಟ್ಯಾಬ್ ಮೇಲೆ ಬಲ ಕ್ಲಿಕ್ ಮಾಡಿ ಮತ್ತು ಸಂದರ್ಭ ಮೆನುವಿನಿಂದ ಆಯ್ಕೆಮಾಡಿ ಮೂಲ ಪಠ್ಯ (ಮೂಲ ಕೋಡ್). ತೆರೆಯುವ ವಿಷುಯಲ್ ಬೇಸಿಕ್ ಎಡಿಟರ್ ವಿಂಡೋದಲ್ಲಿ, ಸರಳ ಮ್ಯಾಕ್ರೋ ಕೋಡ್ ಅನ್ನು ನಕಲಿಸಿ ಮತ್ತು ಅಂಟಿಸಿ:

ಖಾಸಗಿ ಉಪ ವರ್ಕ್‌ಶೀಟ್_ಚೇಂಜ್(ByVal Target as Excel.Range) ಟಾರ್ಗೆಟ್‌ನೊಂದಿಗೆ .ವಿಳಾಸ(ತಪ್ಪು, ತಪ್ಪು) = "A1" ಆಗಿದ್ದರೆ ಸಂಖ್ಯಾವಾಚಕ(.ಮೌಲ್ಯ) ಆಗಿದ್ದರೆ ಅಪ್ಲಿಕೇಶನ್.EnableEvents = ತಪ್ಪು ಶ್ರೇಣಿ("A2").ಮೌಲ್ಯ = ಶ್ರೇಣಿ(" A2").Value + .value Application.EnableEvents = True End If End If End With End Sub  

A1 ಮತ್ತು A2 ಕೋಶಗಳ ವಿಳಾಸಗಳನ್ನು ಸಹಜವಾಗಿ ನಿಮ್ಮದೇ ಆದ ರೀತಿಯಲ್ಲಿ ಬದಲಾಯಿಸಬಹುದು.

ನೀವು ಡೇಟಾ ನಮೂದನ್ನು ಟ್ರ್ಯಾಕ್ ಮಾಡಬೇಕಾದರೆ ಮತ್ತು ಪ್ರತ್ಯೇಕ ಕೋಶಗಳಲ್ಲ, ಆದರೆ ಸಂಪೂರ್ಣ ಶ್ರೇಣಿಗಳನ್ನು ಸಾರಾಂಶ ಮಾಡಬೇಕಾದರೆ, ಮ್ಯಾಕ್ರೋವನ್ನು ಸ್ವಲ್ಪ ಬದಲಾಯಿಸಬೇಕಾಗುತ್ತದೆ:

ಖಾಸಗಿ ಉಪ ವರ್ಕ್‌ಶೀಟ್_ಚೇಂಜ್ (ByVal Target as Excel.Range) ಛೇದಿಸದಿದ್ದರೆ (ಗುರಿ, ಶ್ರೇಣಿ ("A1:A10")) ನಂತರ ಏನೂ ಆಗಿಲ್ಲ (Target.Value) ಆಗಿದ್ದರೆ Application.EnableEvents = False Target.Offset(0, 1) .ಮೌಲ್ಯ = ಟಾರ್ಗೆಟ್.ಆಫ್ಸೆಟ್(0, 1).ಮೌಲ್ಯ + ಗುರಿ  

A1:A10 ಶ್ರೇಣಿಯ ಕೋಶಗಳಲ್ಲಿ ಡೇಟಾವನ್ನು ನಮೂದಿಸಲಾಗಿದೆ ಎಂದು ಭಾವಿಸಲಾಗಿದೆ ಮತ್ತು ನಮೂದಿಸಿದ ಸಂಖ್ಯೆಗಳನ್ನು ಬಲಭಾಗದಲ್ಲಿರುವ ಪಕ್ಕದ ಕಾಲಮ್‌ನಲ್ಲಿ ಒಟ್ಟುಗೂಡಿಸಲಾಗುತ್ತದೆ. ನಿಮ್ಮ ಸಂದರ್ಭದಲ್ಲಿ ಅದು ಪಕ್ಕದಲ್ಲಿಲ್ಲದಿದ್ದರೆ, ಆಫ್‌ಸೆಟ್ ಆಪರೇಟರ್‌ನಲ್ಲಿ ಬಲಕ್ಕೆ ಶಿಫ್ಟ್ ಅನ್ನು ಹೆಚ್ಚಿಸಿ - 1 ಅನ್ನು ದೊಡ್ಡ ಸಂಖ್ಯೆಯೊಂದಿಗೆ ಬದಲಾಯಿಸಿ.

• ಮ್ಯಾಕ್ರೋಗಳು ಯಾವುವು, VBA ನಲ್ಲಿ ಮ್ಯಾಕ್ರೋ ಕೋಡ್ ಅನ್ನು ಎಲ್ಲಿ ಸೇರಿಸಬೇಕು, ಅವುಗಳನ್ನು ಹೇಗೆ ಬಳಸುವುದು?