Excel VBAã®åºæ¬æäœãšãªããžã§ã¯ãã®ç解
ç§ã¯VBAã®æŽ»çšçµéšãéããŠåŸãç¥èãæŽçããå
±æããç®çã§èšäºãäœæããŠããããã°ã©ãã³ã°æŽ1幎åã«ãªããšã³ãžãã¢ã§ãã
ååã¯ãVBAã®åºç€ç¥èãã»ãã¥ãªãã£èšå®ã«ã€ããŠè§£èª¬ããŸãããä»åã¯äžæ©é²ãã§ãå®éã«VBAã§ã³ãŒããæžãããã«ç¥ã£ãŠããã¹ãåºæ¬çãªæŠå¿µããã»ã«ã®æäœæ¹æ³ã«ã€ããŠè©³ãã玹ä»ããŠãããŸããVBAã®åºæ¬ãç解ããExcelã§ã®ããŒã¿æäœãèªååãã第äžæ©ãšãªãå
容ããå±ãããŸããVBAãå§ããã°ããã®æ¹ããåºç€ããåŠã³çŽãããæ¹ã®åèã«ãªãã°å¹žãã§ãã
- 第1å: Excel VBAã®åºç€ç¥èãšã»ãã¥ãªãã£èšå®
- 第2å: Excel VBAã®åºæ¬æäœãšãªããžã§ã¯ãã®ç解ïŒæ¬èšäºïŒ
- 第3å: Excel VBAã«ãããå€æ°ãšå®æ°ã®åºæ¬
- 第4å: Excel VBAã«ãããã·ãŒãæäœã®åºæ¬ãšãšã©ãŒåŠç
ç®æ¬¡
ã¯ããã«
VBEïŒVisual Basic EditorïŒã®ç»é¢æ§æ
VBAã®ããã°ã©ã äœæã®åºæ¬
ãªããžã§ã¯ã
ããããã£ãšã¡ãœãã
ã»ã«ã®æå®æ¹æ³
ValueïŒã»ã«ã®å€ïŒã®æäœ
ClearãšDeleteã®éã
ãŸãšã
ã¯ããã«
ååã¯ãVBAã®åºç€ç¥èãšã»ãã¥ãªãã£èšå®ã«ã€ããŠè§£èª¬ããŸãããä»åã¯ãExcel VBAã«ãããã»ã«æäœã«çŠç¹ãåœãŠãŠã"Range"ãš"Cells"ã®äœ¿ãæ¹ã"Value"ã¡ãœããã®äœ¿çšæ³ããªããžã§ã¯ãã®åºæ¬æŠå¿µããããŠ"Clear"ãš"Delete"ã®éãã«ã€ããŠè©³ãã説æããŸãããããã®ç¥èã¯VBAã䜿ã£ãŠExcelã§ããŒã¿æäœãè¡ãäžã§éåžžã«éèŠã§ãã
VBEïŒVisual Basic EditorïŒã®ç»é¢æ§æ
VBAãç·šéããããã®åºæ¬ããŒã«ã§ããVBEïŒVisual Basic EditorïŒã®ç»é¢æ§æã説æããŸãã
VBEã«ã€ããŠã¯ãååã®èšäºã§èª¬æããŠããŸãã
以äžã®ãªã³ã¯ããã芧ããã ããŸãã®ã§ããã²ã確èªãã ããã
-
ã¡ãã¥ãŒããŒ
- ãã¡ã€ã«ã®ä¿åãå°å·ãã³ãŒãã®å®è¡ãªã©ãVBEå šäœã«é¢ããæäœãè¡ãããã®ã¡ãã¥ãŒã衚瀺ããã
-
ããŒã«ããŒ
- ãã䜿ãæ©èœãžã®ã·ã§ãŒãã«ããã¢ã€ã³ã³ã衚瀺ããã
- ã³ãŒãã®å®è¡éå§ãåæ¢ãã³ã¡ã³ãåã»éã³ã¡ã³ãåãªã©
-
ãããžã§ã¯ããšã¯ã¹ãããŒã©ãŒïŒ
Ctrl + R
ïŒ- çŸåšéããŠããExcelãã¡ã€ã«ã«é¢é£ä»ããããVBAãããžã§ã¯ãã®å 容ã衚瀺ããã
- ã¢ãžã¥ãŒã«ïŒããã°ã©ã ãèšè¿°ãããã¡ã€ã«ïŒããã©ãŒã ïŒãŠãŒã¶ãŒãæäœããç»é¢ïŒãã¯ã©ã¹ã¢ãžã¥ãŒã«ïŒããã°ã©ãã³ã°ã®ããã®éšåïŒãªã©ãVBAã®ããã°ã©ã ãæ§æããèŠçŽ ãããªãŒæ§é ã§è¡šç€ºãããããããã®èŠçŽ ãéžæããŠã³ãŒãã®ç·šéãè¡ãããšãã§ãã
-
ããããã£ãŠã£ã³ããŠïŒ
F4
ïŒ
- ãããžã§ã¯ããšã¯ã¹ãããŒã©ãŒã§éžæããèŠçŽ ã®ããããã£ïŒèšå®å€ïŒã衚瀺ããã
- ãã©ãŒã ã®ååãè²ããµã€ãºãèæ¯è²ããã©ã³ããµã€ãºãªã© -
ã³ãŒããŠã£ã³ããŠïŒ
F7
ïŒ- å®éã«VBAã®ã³ãŒããèšè¿°ããå Žæ
- åã¢ãžã¥ãŒã«ããã©ãŒã ãã¯ã©ã¹ã¢ãžã¥ãŒã«ãéžæãããšã察å¿ããã³ãŒããŠã£ã³ããŠã衚瀺ããã
-
ã€ããã£ãšã€ããŠã£ã³ããŠïŒ
Ctrl + G
ïŒ- VBAã®ã³ãŒããçŽæ¥å®è¡ããããå€æ°ã®å€ã確èªãããããéã«äœ¿çš
- ç°¡åãªèšç®ãè¡ã£ãããå€æ°ã«æ ŒçŽãããŠããããŒã¿ã確èªããéã«äŸ¿å©
-
ããŒã«ã«ãŠã£ã³ããŠïŒ
Ctrl + L
ïŒ- ããã°ã©ã ã®å®è¡äžã«ãçŸåšå®è¡äžã®ããã·ãŒãžã£ïŒããã°ã©ã ã®äžéšïŒå ã§å®£èšãããå€æ°ã®å€ãããŒã¿åã確èªã§ãã
-
ãŠã©ãããŠã£ã³ããŠïŒ
Ctrl + W
ïŒ- ç¹å®ã®å€æ°ãåŒã®å€ãç£èŠããéã«äœ¿çš
- ããã°ã©ã ã®å®è¡äžã«ãæå®ããå€æ°ãåŒã®å€ãã©ã®ããã«å€åãããã芳å¯ããããšãã§ãã
ãã䜿ããŠã£ã³ããŠã®è¡šç€º/é衚瀺
- [衚瀺]ã¡ãã¥ãŒããåãŠã£ã³ããŠã®è¡šç€º/é衚瀺ãåãæ¿ããããŸã
- ã·ã§ãŒãã«ããããŒã䜿çšãããšçŽ æ©ãåãæ¿ããå¯èœã§ã
- äœæ¥ã¹ã¿ã€ã«ã«åãããŠãå¿ èŠãªãŠã£ã³ããŠã®ã¿ã衚瀺ããããšã§äœæ¥å¹çãåäžããŸã
ã³ãŒããŠã£ã³ããŠãæ¶ããå Žåã®å¯ŸåŠæ³
VBAã®ã³ãŒãã£ã³ã°äžã«ãæå³ããã³ãŒããŠã£ã³ããŠãæ¶ããŠããŸãããšããããŸããããã¯ã誀ã£ãŠããªããžã§ã¯ããã©ãŠã¶ãŒããèµ·åããŠããŸã£ãå Žåã«ããèµ·ãããŸãã
ãªããžã§ã¯ããã©ãŠã¶ãŒãšã¯
ãªããžã§ã¯ããã©ãŠã¶ãŒã¯ãVBAã§äœ¿çšã§ãããªããžã§ã¯ãã®è©³çŽ°ã確èªããããã®ããŒã«ã§ããéåžžã䜿ã蟌ãã æ¹ã掻çšããŸãããåå¿è ã«ãšã£ãŠã¯äœ¿ãæ©äŒãå°ãªããããããŸããã
ã³ãŒããŠã£ã³ããŠã®è¡šç€ºæ¹æ³
ã³ãŒããŠã£ã³ããŠã衚瀺ããã«ã¯ã以äžã®ããããã®æ¹æ³ã䜿çšããŸã
-
F7
ããŒãæŒã - [衚瀺] â [ã³ãŒã] ãéžæ
- ãããžã§ã¯ããšã¯ã¹ãããŒã©ãŒã§ç·šéäžã®ã¢ãžã¥ãŒã«ãããã«ã¯ãªãã¯
ã³ãŒããŠã£ã³ããŠãšãªããžã§ã¯ããã©ãŠã¶ãŒã®åãæ¿ã
F7
ããŒïŒã³ãŒããŠã£ã³ããŠã®è¡šç€º
F2
ããŒïŒãªããžã§ã¯ããã©ãŠã¶ãŒã®è¡šç€º
ãã®2ã€ã®ã·ã§ãŒãã«ããããŒãèŠããŠãããšãäœæ¥å¹çãäžãããŸãã
VBAã®ããã°ã©ã äœæã®åºæ¬
VBAã§ããã°ã©ã ãäœæããéã®åºæ¬çãªæµããšæ§é ã«ã€ããŠèª¬æããŸãã
ã¢ãžã¥ãŒã«ã®äœæãšç®¡ç
VBAã®ããã°ã©ã ã¯ãã¢ãžã¥ãŒã«ããšåŒã°ããåäœã§ç®¡çããŸãã
ã¢ãžã¥ãŒã«ã¯ãããã°ã©ã ãèšè¿°ãããã¡ã€ã«ãšããèªèã§åé¡ãããŸããã
-
ã¢ãžã¥ãŒã«ã®è¿œå æ¹æ³
- [æ¿å ¥] â [æšæºã¢ãžã¥ãŒã«]ãéžæ
- ãããžã§ã¯ããšã¯ã¹ãããŒã©ãŒã«ãæšæºã¢ãžã¥ãŒã«ããšãModule1ããè¿œå ããã
- ã·ã§ãŒãã«ããã¯
Alt + I
âM
-
ã¢ãžã¥ãŒã«ã®æŽ»çšã®ã³ã
- æ©èœããšã«å¥ã ã®ã¢ãžã¥ãŒã«ãäœæãããšç®¡çã容æã«ãªããŸã
- äŸïŒããŒã¿å ¥åçšãèšç®åŠççšãå°å·çšãªã©
-
ããã°ã©ã ã®ç·šéæ¹æ³
- ãããžã§ã¯ããšã¯ã¹ãããŒã©ãŒã§å¯Ÿè±¡ã®ã¢ãžã¥ãŒã«ãããã«ã¯ãªãã¯
- ã³ãŒããŠã£ã³ããŠã«ãã®ã¢ãžã¥ãŒã«ã衚瀺ããã
- ã³ãŒããŠã£ã³ããŠã§ããã°ã©ã ã®ç·šéãè¡ã
ããã°ã©ã ã®åºæ¬æ§é
VBAã®ããã°ã©ã ã¯ä»¥äžã®ãããªæ§é ã§èšè¿°ããŸãã
Sub æšæ¶() ' ããã°ã©ã ã®ååããæšæ¶ããšãã
MsgBox "ããã«ã¡ã¯" ' å®è¡ãããšãããã«ã¡ã¯ããšããã¡ãã»ãŒãžã衚瀺ããã
End Sub ' ããã°ã©ã ã®çµäº
-
Sub
ããEnd Sub
ãŸã§ã1ã€ã®ããã°ã©ã -
Sub
ã®åŸãã®æåæšæ¶
ã¯ããã®ããã°ã©ã ã®ååã§ããããããããååãèªç±ã«ã€ããããŸãããäžèšã«ã¯æ³šæããŠãã ãã- 255æå以å ã§ããå¿ èŠããããŸã
- 空çœãç¹æ®æåïŒ, /, :, *, ?, ", <, >, |ãªã©ïŒã¯äœ¿çšã§ããŸãã
- VBAã®äºçŽèªïŒIf, Then, Endãªã©ã®VBAã§æ¢ã«å®çŸ©ãããŠããåèªïŒã¯äœ¿çšã§ããŸãã
- å é ã¯å¿ ãæåããå§ããå¿ èŠããããŸãïŒæ°åã¯2æåç®ä»¥éã§äœ¿çšå¯ïŒ
- æ¥æ¬èªã§ãè±èªã§ã䜿çšå¯èœã§ã
-
()
ã®äžã«ã¯ãåŒæ°ïŒããã°ã©ã ã«æž¡ãæ å ±ïŒãæå®ã§ããŸãããã®äŸã§ã¯ãåŒæ°ã¯æå®ããŠããŸãã - ã³ã¡ã³ãïŒããã°ã©ã ã®å
容ã説æããæç« ïŒã¯ã·ã³ã°ã«ã¯ã©ãŒã(
'
)ã®åŸã«èšè¿°ããŸã- ã³ã¡ã³ãã¯ãããã°ã©ã ã®åäœã«ã¯åœ±é¿ããŸãã
- ã³ã¡ã³ãã¯æ¥æ¬èªã§æžããã®ã§ãããã°ã©ã ã®èª¬æãåå¿é²ãšããŠæŽ»çšã§ããŸã
- ãŸããå¥ã®äººãããã°ã©ã ãèªãéã«å©ããšãªããŸã
-
MsgBox ("ããã«ã¡ã¯")
ã¯ããããã«ã¡ã¯ããšããã¡ãã»ãŒãžããã¯ã¹ã衚瀺ããåœä»€ã§ã- ãã®ããã°ã©ã ãå®è¡ãããšãç»é¢ã«ãããã«ã¡ã¯ããšããã¡ãã»ãŒãžããã¯ã¹ã衚瀺ãããŸã
ããã°ã©ã ã®å®è¡æ¹æ³
ããã°ã©ã ãå®è¡ããæ¹æ³ã¯äž»ã«2ã€ãããŸãã
-
éåžžå®è¡ïŒäžæ¬å®è¡ïŒ
- ããŒã«ããŒã®
Sub/ãŠãŒã¶ãŒãã©ãŒã ã®å®è¡
ãã¿ã³ïŒâ¶ïŒãã¯ãªã㯠- ãŸãã¯ãããŒããŒãã®
F5
ããŒãæŒã - ããã°ã©ã ã
Sub
ããEnd Sub
ãŸã§äžæ°ã«å®è¡ãããŸã
- ããŒã«ããŒã®
-
ã¹ãããå®è¡ïŒ1è¡ãã€å®è¡ïŒ
- [ãããã°]ãâ [ã¹ãããã€ã³] ãã¿ã³ãã¯ãªãã¯
- ãŸãã¯ãããŒããŒãã®
F8
ããŒãæŒã - ããã°ã©ã ã1è¡ãã€ç¢ºèªããªããå®è¡ã§ããŸã
- ããã°ã©ã ã®åäœç¢ºèªãäžå ·åã®èª¿æ»ã«äŸ¿å©ã§ã
ããã°ã©ã éçºäžã¯ããšã©ãŒã®åå ãç¹å®ãããã ã¹ãããå®è¡
ãããããããŸãã
åè¡ã®å®è¡çµæã確èªããªããé²ãããããããå®å
šã«åäœç¢ºèªãã§ããŸãã
ãªããžã§ã¯ã
VBAã§ã¯ãExceläžã®ããããèŠçŽ ãããªããžã§ã¯ãããšããŠæ±ããŸãããããã¯ããã¯ãŒã¯ã·ãŒãããã»ã«ããã°ã©ãããªã©ãExcelã§ã¯ãªãã¯ã§ããç®æã¯ãã¹ãŠè©²åœããŸãããªããžã§ã¯ãã¯éå±€æ§é ã®ããããªããžã§ã¯ããæå®ãããšãã¯ãäžäœã®éå±€ããäžäœã®éå±€ãžã .
(ããã)ãã§åºåã£ãŠèšè¿°ããŸãã Excel ã®äž»ãªãªããžã§ã¯ãã«ã¯ã次ã®ãã®ããããŸãã
-
Application
ïŒExcelå šäœãè¡šããªããžã§ã¯ããéåžžãçç¥ãããããšãå€ãã§ã -
Workbook
ïŒããã¯ïŒExcelãã¡ã€ã«ïŒãè¡šããªããžã§ã¯ã -
Worksheet
ïŒã¯ãŒã¯ã·ãŒãïŒã·ãŒãïŒãè¡šããªããžã§ã¯ã -
Range
ïŒã»ã«ã®éåãè¡šããªããžã§ã¯ã
éå±€æ§é ã®äŸ
' ããã¯ãç·Žç¿.xlsmãã®ã¯ãŒã¯ã·ãŒããSheet1ãã®ã»ã«ãA1ãã®å€ã100ã«ãã
Workbooks("ç·Žç¿.xlsm").Worksheets("Sheet1").Range("A1").Value = 100
' âéå±€æ§é ã§è¡šããšïŒ
' Workbooks("ç·Žç¿.xlsm") â ããã¯ã®æå®
' ââ Worksheets("Sheet1") â ã·ãŒãã®æå®
' ââ Range("A1") â ã»ã«ã®æå®
' ââ Value â ããããã£ã®æå®
- Workbooks("ç·Žç¿.xlsm")ïŒããã¯ãæå®ããŠããŸã
- Worksheets("Sheet1")ïŒãã®ããã¯å ã®ç¹å®ã®ã¯ãŒã¯ã·ãŒããæå®ããŠããŸã
- Range("A1")ïŒãã®ã¯ãŒã¯ã·ãŒãå ã®ç¹å®ã®ã»ã«ãæå®ããŠããŸã
- Value = 100ïŒã»ã«ã®å€ã100ã«èšå®ããŠããŸã
ãRange("A1").Value=100ãã®ããã«çç¥ããããšãå¯èœã§ãããäºæãã¬ãšã©ãŒãçºçããçºãåºæ¬çã«ã¯èšèŒãã¹ãã§ãã
ããããã£ãšã¡ãœãã
VBAã§ã¯åŠç察象ã®ãªããžã§ã¯ããæå®ããŠãç¶æ
(ããããã£)ãå€åãããããåäœåœä»€(ã¡ãœãã)ãåœãããããŠåŠçãè¡ããŸãã ã .
ãã®éšåããã®ããã ïŒ
ãã®éšåãããããšèªãã§ããããšãç解ããããã§ãã
-
ããããã£ïŒãªããžã§ã¯ãã®ç¶æ ïŒ ã
Value
(å€)ããColor
(è²)ããSize
(倧ãã)ããªã©ïŒ' ããã¯ãç·Žç¿.xlsmãã®ã¯ãŒã¯ã·ãŒããSheet1ãã®ã»ã«ãA1ãã®å€ã100ã«ããã Workbooks(âç·Žç¿.xlsmâ).Worksheets("Sheet1").Range("A1").Value=100
-
ã¡ãœããïŒãªããžã§ã¯ãã«å¯ŸããåäœãåŠçïŒã»ã«ã®å 容ãåé€: ã
Clear
ïŒåé€ïŒããDelete
(åé€)ããã³ããŒããæäœ: ãCopy
(ã³ããŒãã)ããªã©ïŒ' ããã¯ãç·Žç¿.xlsmãã®ã¯ãŒã¯ã·ãŒããSheet1ãã®ã»ã«ãA1ãã®ã¯ãªã¢ïŒåé€ïŒã Workbooks(âç·Žç¿.xlsmâ).Worksheets("Sheet1").Range("A1").Clear
ããããã£ãšã¡ãœããã®éãã¯ããŸããªããäž»ã«èšè¿°æ¹æ³ã®éãã«ãªããŸãã
-
âââ.â¡â¡â¡ = å€
: ãã®å Žåã®â¡â¡â¡
ã¯ããããã£ã§ã -
âââ.â¡â¡â¡
: ãã®å Žåã®â¡â¡â¡
ã¯ã¡ãœããã§ããïŒããããã£ã®å ŽåããããŸãïŒ
ã©ã®ãããªã¡ãœãããããããã©ã®ãããªããããã£ããããããã䜿ããã®ã§ããã°ãæèšããŠããã®ãè¯ãã§ãããå šãŠãç¥ã£ãŠããã®ã¯ïŒïŒïŒ äžå¯èœã§ãã ããããªã¡ãœãããªãããªïŒããšçåã«æããæã人ãæžããVBAãããããªãã£ãæã«ãWebæ€çŽ¢ããã®ãããããã§ãã
ã»ã«ã®æå®æ¹æ³
VBAã§ã»ã«ãæå®ããæ¹æ³ã«ã¯ Range
ãš Cells
ã®2ã€ãããŸããããããã®ç¹åŸŽãç解ããŠãé©åã«äœ¿ãåããããšãéèŠã§ãã
Range
Range
ã¯ã»ã«ã®ç¯å²ãæå®ããããã®æ¹æ³ã§ããç¹å®ã®ã»ã«ãã»ã«ã®ç¯å²ãéžæã§ããŸãã
' åäžã®ã»ã«ãæå®
Range("A1").Value = 100 ' A1ã»ã«ã«100ãå
¥å
' é£ç¶ããç¯å²ãæå®
Range("A1:C4").Value = 1 ' A1ããC4ãŸã§ã®ç¯å²ã«1ãå
¥å
' åå
šäœãæå®
Range("A:A").Clear ' Aåå
šäœãã¯ãªã¢
' è¡å
šäœãæå®
Range("1:1").Clear ' 1è¡ç®å
šäœãã¯ãªã¢
' äžé£ç¶ãªç¯å²ãæå®
Range("A1,C3,E5").Value = 2 ' A1ãšC3ãšE5ã«2ãå
¥å
Cells
Cells
ã¯ãè¡çªå·ãšåçªå·ãæ°å€ã§æå®ããæ¹æ³ã§ããç¹ã«ç¹°ãè¿ãåŠçã§äŸ¿å©ã§ãã(ç¹°ãè¿ãåŠçã«ã€ããŠã¯ã次å以éã®èšäºã§è§£èª¬ããŸã)
' åºæ¬çãªäœ¿ãæ¹ïŒè¡,åïŒ
Cells(1, 1).Value = 100 ' A1ã»ã«ã«100ãå
¥å
Cells(2, 3).Value = 200 ' C2ã»ã«ã«200ãå
¥åïŒ3åç®ã¯ãCåïŒ
' åãæåã§æå®ããããšãå¯èœ
Cells(1, "A").Value = 100 ' A1ã»ã«ã«100ãå
¥å
Cells(2, "C").Value = 200 ' C2ã»ã«ã«200ãå
¥å
RangeãšCellsã®äœ¿ãåã
- åäžã»ã«ãé£ç¶ããã»ã«ç¯å²ãæå®ããå ŽåïŒåºå®çãªç¯å²æå®ïŒã¯ã
Range
ãªããžã§ã¯ãã®æ¹ãçŽæçã§åããããã - ç¹°ãè¿ãåŠçãªã©ã§ãè¡çªå·ãåçªå·ãåºã«ã»ã«ãæå®ããå ŽåïŒåçãªç¯å²æå®ïŒã¯ã
Cells
ãªããžã§ã¯ãã®æ¹ãäŸ¿å© - ååä»ãç¯å²ã䜿çšããå Žåã¯ã
Range
ãªããžã§ã¯ãã䜿çšããå¿ èŠããã
äŸïŒRange("åç°¿")
: ååä»ãç¯å²åç°¿
ãæå®
ValueïŒã»ã«ã®å€ïŒã®æäœ
VBAã§ã»ã«ã®å€ãæäœããéã«äœ¿çšãã Value
ã«ã€ããŠèª¬æããŸããValue
ã¯ãã»ã«ã«å
¥åãããŠããæ
å ±ïŒæ°å€ãæååãªã©ïŒãååŸãŸãã¯èšå®ããããã«äœ¿çšããŸãã
åºæ¬çãªäœ¿ãæ¹
' æ°å€ãå
¥åããå Žå
Range("A1").Value = 1 ' A1ã»ã«ã«æ°å€ã®1ãå
¥å
Cells(1, 1).Value = 1 ' åãæäœãè¡,åæå®ã§èšè¿°
Cells(1, "A").Value = 1 ' Cellsã®åãæåã§æå®
' æååãå
¥åããå Žå
Range("B2").Value = "A" ' B2ã»ã«ã«æåå"A"ãå
¥å
Cells(2, 2).Value = "A" ' åãæäœãè¡,åæå®ã§èšè¿°
Cells(1, "B").Value = "A" ' Cellsã®åãæåã§æå®
' æ¥æ¬èªãå
¥åããå Žå
Range("C3").Value = "ãŠããš" ' C3ã»ã«ã«"ãŠããš"ãå
¥å
Cells(3, 3).Value = "ãŠããš" ' åãæäœãè¡,åæå®ã§èšè¿°
Cells(3, "C").Value = "ãŠããš" ' Cellsã®åãæåã§æå®
Valueã®çç¥ã«ã€ããŠ
Value
ã¯çç¥ããããšãå¯èœã§ãããã³ãŒãã®å¯èªæ§ãšä¿å®æ§ã®èŠ³ç¹ãããååãšããŠçç¥ããªãããšãããããããŸãã
' Valueãçç¥ããå ŽåïŒéæšå¥šïŒ
Range("A1") = 1
Cells(1, 1) = 1
Cells(1, "A") = 1
' Valueãæ瀺çã«èšè¿°ïŒæšå¥šïŒ
Range("A1").Value = 1
Cells(1, 1).Value = 1
Cells(1, "A").Value = 1
ã»ã«éã§ã®å€ã®ã³ããŒ
ã»ã«ã®å€ãå¥ã®ã»ã«ã«ã³ããŒããããšãã§ããŸãã
' ã»ã«B2ã®å€ãã»ã«A1ã«ã³ããŒ
Range("A1").Value = Range("B2").Value ' B2ã»ã«ã®å€ãA1ã»ã«ã«ã³ããŒ
Cells(1, 1).Value = Cells(2, 2).Value ' åãæäœãè¡,åæå®ã§èšè¿°
Cells(1, "A").Value = Cells(2, "B").Value ' Cellsã®åãæåã§æå®
äžèšãå®è¡ãããšãäžèšã®æ·»ä»ç»åã®æ§ã« ãã¹ã
ãšããæåãã³ããŒãããŸãã
ïŒã»ã«B2ã®å€ãååŸããã»ã«A1ã«å
¥åïŒ
ClearãšDeleteã®éã
Clear
ãš Delete
ã¯ã©ã¡ããã»ã«ã®å
容ãåé€ããéã«äœ¿çšããŸãããåäœãç°ãªããŸãã
Clear
- ã»ã«ã® å 容ãæžåŒ ãåé€
- ã»ã«èªäœã¯åé€ãããã«ã空çœã«ãªã
' B4ã»ã«ã®å
容ãæžåŒãåé€ïŒã»ã«èªäœã¯æ®ãïŒ
Range("B4").Clear
Delete
- ã»ã«èªäœãåé€
- åé€ãããã»ã«ã®äžåŽïŒor å³åŽïŒã®ã»ã«ããåé€ãããé åã«ç§»åãã
- åé€ããæ¹åãæå®ããããšãã§ãã
' B4ã»ã«ãåé€ (äžåŽã®ã»ã«ãåé€ãããé åã«ç§»å)
Range("B4").Delete
Deleteã§ã®è©°ãæ¹ã®ãªãã·ã§ã³
-
Shift:=xlToLeft
: å·Šã«è©°ãã -
Shift:=xlUp
: äžã«è©°ãã
' B4ã»ã«ãåé€ïŒå³åŽã®ã»ã«ãåé€ãããé åã«ç§»åïŒ
Range("B4").Delete Shift:=xlToLeft
ClearãšDeleteã®éããŸãšã
é ç® | Clear | Delete |
---|---|---|
åé€å¯Ÿè±¡ | ã»ã«ã®å 容 | ã»ã«èªäœ |
æžåŒèšå® | åé€ããã | åé€ããã |
ã»ã«ã®ç©ºçœ | 空çœã«ãªã | åé€ãããä»ã®ã»ã«ã移å |
Clearã®çš®é¡
Clearã«ã¯è€æ°ã®çš®é¡ããããç®çã«å¿ããŠäœ¿ãåããããšãã§ããŸãã
é »ç¹ã«äœ¿çšãã3çš®é¡ã玹ä»ããŸãã
Clear
眫ç·ãã»ã«ã®è²ããã¹ãŠã®æ å ±ãæ¶ããå®å šãªç©ºçœã»ã«ã«ãªãã
' B3ã»ã«ã®å
容ãæžåŒãåé€
Range("B3").Clear
ClearContents
ããŒã¿ã¯æ¶ãããã以äžãæ®ãã
- èæ¯è²
- 眫ç·
- ãã©ã³ãèšå®
- æ°å€ã®è¡šç€ºåœ¢åŒ
' B3ã»ã«ã®å€ã®ã¿åé€ãèæ¯è²ã眫ç·ãªã©ã®æžåŒèšå®ã¯ä¿æ
Range("B3").ClearContents
ClearFormats
ããŒã¿ã¯æ®ããã以äžãæ¶ããã
- èæ¯è²
- 眫ç·
- ãã©ã³ãèšå®
- æ°å€ã®è¡šç€ºåœ¢åŒ
' B3ã»ã«ã®èæ¯è²ã眫ç·ãªã©ã®æžåŒèšå®ãåé€ãå€ã¯ä¿æ
Range("B3").ClearFormats
Clearã®çš®é¡ãŸãšã
çš®é¡ | 説æ |
---|---|
Clear |
ã»ã«ã®å 容ãšæžåŒããã¹ãŠåé€ |
ClearContents |
ã»ã«ã®å 容ã®ã¿ãåé€ |
ClearFormats |
ã»ã«ã®æžåŒã®ã¿ãåé€ |
åé€ã®äœ¿ãåã
- ã»ã«ã®å
容ãšæžåŒãåé€ããŠè©°ããå¿
èŠããªãå Žåã¯
Clear
ãäœ¿çš - å€ã ããæ¶å»ãããå Žåã¯
ClearContents
ã䜿çš
ïŒæžåŒãæ®ããŠå 容ã ãæ¶å»ãããå ŽåïŒ - æžåŒã®ã¿åé€ãå€ãæ®ãããå Žåã¯
ClearFormats
ãäœ¿çš - ã»ã«èªäœãåé€ããŠè©°ããå¿
èŠãããå Žåã¯
Delete
ã䜿çš
â» åãè¡ã®é 眮ãå€ãããããæ éã«è¡ãå¿ èŠããããŸãïŒ
æãé »ç¹ã«äœ¿çšãããåé€ã¯ãClearContents
ClearContents
ã¯ãå€ã ããæ¶å»ããæžåŒèšå®ïŒãã©ã³ããèæ¯è²ã眫ç·ãªã©ïŒããã®ãŸãŸä¿æã§ãããããå€ãã®å®åã§ãšãŠãé »ç¹ã«çšããããŸãã
ClearContentsã®äœ¿çšäŸ
-
æ¯æã®ããŒã¿æŽæ°æ
æ次ã®å ±åæžãããŒã¿åæã·ãŒãã§ããããã¯å®æçã«æŽæ°ãããã·ãŒãã«ãããŠãå æã®ããŒã¿ã®ã¿ãåé€ããæ°ããããŒã¿ãå ¥åããéã«äŸ¿å©ã§ããã»ã«ã®æžåŒããã®ãŸãŸä¿æããããããäºåã«æŽãããã©ãŒããããæåã§åèšå®ããæéãçããŸãã- 売äžããŒã¿ã®æŽæ°
- åšåº«æ°ã®æŽæ°
- å€æ ããŒã¿ã®æŽæ°
-
ãã³ãã¬ãŒãäœææ
è€æ°ã®åœ¢åŒã§ããŒã¿ãå ¥åããããã³ãã¬ãŒããäœæããéãäŸãšããŠå ¥åããããŒã¿ãåé€ããæžåŒãä¿æãããŸãŸã®ãã³ãã¬ãŒãããŠãŒã¶ã«æäŸããããšãã§ããŸããããã«ããããŠãŒã¶ã¯èšå®ããã圢åŒã«åŸã£ãŠå®¹æã«ããŒã¿ãå ¥åã§ããŸãã- ç³è«æžãã©ãŒããã
- æ¥å ±ãã³ãã¬ãŒã
- ãã§ãã¯ãªã¹ã
ãã®ããã«ãClearContents
ã掻çšããããšã§ãå¹ççã«ããŒã¿ã®ç®¡çãæŽæ°ãè¡ãããšãå¯èœã§ãã
ãŸãšã
Excel VBAã«ããããªããžã§ã¯ããããããã£ãã¡ãœããã®æŠå¿µã¯ãå¹ççãªExcelæäœã®åºç€ãšãªãéèŠãªèŠçŽ ã§ããç¹ã«ã»ã«ã®æäœã§ã¯ãRangeãšCellsãšãã2ã€ã®æ¹æ³ãç¶æ³ã«å¿ããŠäœ¿ãåããããšã§ãããæè»ãªããã°ã©ãã³ã°ãå¯èœã«ãªããŸãããŸããClearãšDeleteã®éããç解ããé©åã«äœ¿çšããããšã§ãããŒã¿ã®æŽæ°ãåé€äœæ¥ãæ£ç¢ºã«è¡ãããšãã§ããŸãããããã®åºæ¬çãªç¥èã¯ãæ¥åžžçãªæ¥åå¹çåãããŒã¿åŠçã®èªååã«å€§ãã«åœ¹ç«ã¡ãŸãã
ããèšäºã®å 容ã«ééããããã°ãã³ã¡ã³ãã§ãææããã ããŸããšå¹žãã§ãããŸããããè¯ãæ¹æ³ã代æ¿æ段ããåç¥ã®æ¹ãããã£ããããŸãããããã²å ±æããŠããã ããã°ãšåããŸããäŸãã°ãå®åã§ã®VBA掻çšäºäŸããå¹ççãªã³ãŒãã£ã³ã°æ¹æ³ããšã©ãŒåŠçã®å·¥å€«ãªã©ãçæ§ã®çµéšã«åºã¥ããã¢ããã€ã¹ãããã ããã°å€§å€åèã«ãªããŸãã
次åã¯ãVBAã«ãããå€æ°ã®åºæ¬ãšæŽ»çšæ¹æ³ã«ã€ããŠè©³ãã解説ããäºå®ã§ããå€æ°ã®å®£èšæ¹æ³ãOption Explicitã®éèŠæ§ãå€æ°ã®ã¹ã³ãŒãèšå®ãå®åã§ãã䜿çšããå€æ°ã®åããããŠå®æ°ã®å¹æçãªæŽ»çšæ¹æ³ãŸã§ãããã°ã©ãã³ã°ã®åºç€ãšãªãéèŠãªæŠå¿µãäžå¯§ã«èª¬æããŠãããŸããVBAã®åºæ¬ãåºããããå¹ççãªã³ãŒãã£ã³ã°ã«åœ¹ç«ãŠãŠããã ããã°ãšæããŸããã©ããã楜ãã¿ã«ïŒ