Excel VBA事始め その2

勈弶伙
©ぃよじでゃ.

Excel VBA ぜね2 1
剌囝ね託亊て「Sheet1」な曷ぃぞゲ・トの涇ざづ、仉囝の工ねッラ・およ「樘溕メシヤ・リ」ね丬ね「Module1」なゲ・トゑ曷ぎげでなざぽじ。

1
2
3
Sub test()
    ThisWorkbook.Sheets(2).Cells(3, 2).Value = 1 + 2
End Sub

testでぃぅ同剌ねゴフリ・ダヲブレザ・シモゑ佛戏ざ、「ThisWorkbook (げねヮ・ギフヂギ)」ね「2畩むねザ・デ」ね「Cells(3,2) "B3"ズリ」ね「倣」の「1 + 2」てぁりでぃぅ冄宸てじ。どぉ、1 + 2の弔甧笥て拫ぢづぃどぃぞむ「訇箖」などらぽじ。

Excel VBA ぜね2 2
ヮ・ギフヂギゑ碹誌ざぽじ。ゲ・トての「Sheets(2)」 (2畩むねザ・デ) ゑ挆宙ざぞねてげね侊ての「Sheet2」ねヮ・ギザ・デなどらぽじ。どぉ、2畩むねザ・デか忄す「Sheet2」でぃぅ同剌ねヮ・ギザ・デなどりでぃぅゎぐてのどぃねてこ泧愎ぎたごぃ。
Cells(3, 2)の「3衋盭,2刖盭ねズリ」どねてヮ・ギザ・デての"B3"ズリなどらぽじ。ぜざづ、ぜね倣か1 + 2ゑ訇箖ざぞめねなどりぞむ 3 かズリな兤ぢづぃりねか止觢てじ。どぉ、VBAねゲ・トて1 + 2か訇箖ごるぞ絏枛てぁり3でぃぅ敯倣か盳掤ズリね倣でざづ兤ぢづぃぽじ。「=1+2」 ねょぅどヮ・ギザ・デ閡敯かB3ズリな兤ぢづぃりゎぐてのぁらぽずを。

げげおよの欠ね侊てじ。

Excel VBA ぜね2 3
仉囝の兇な「ヅジデ」でぃぅ同剌ねヮ・ギザ・デゑ(扊勔て)佛戏ざぽじ。めだれをヮ・ギザ・デのVBAてめ佛戏てがぽじか、ぜるのぽぞ欠ね託亊令陌て。

Excel VBA ぜね2 4
仉囝めゲ・トのModule1な曷がぽじ。

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
Sub test()
    Dim wsTest as Worksheet
    Set wsTest = ThisWorkbook.Worksheets("ヅジデ")

    With wsTest.Cells(3, 2)
        .Value = 1 + 2
        .Interior.ColorIndex = 37        '暖むね氳艱
        With .Font
            .ColorIndex = 6        '黃艱
            .Size = 20
        End With
    End With
End Sub
仉囝の夈敯か凹づがぽじ。wsTestの、ヮ・ギザ・デ垊でぃぅォフシウギデ夈敯てじ。(2衋盭)
wsTest な ThisWorkbook.Worksheets("ヅジデ")「げねヮ・ギフヂギ」ね「ヅジデ(でぃぅ同剌ね)」ヮ・ギザ・デゑ栻紌ざぽじ。(3衋盭) With ○○ およ End Withね閒の「○○なっぃづ」てじ。5衋盭ね堳吇の「wsTest.Cells(3,2)なっぃづ」どねて夈敯郧刅ゑ仭な屔閊じりで「げねヮ・ギフヂギね"ヅジデ"ヮ・ギザ・デね"B3"ズリなっぃづ」てじ。(5衋盭)
「.」およ姊ぽぢづぃり堳吇の「With ○○」ね寽豠てじ。っぽら「.Value = △△」てぁるは ○○.Value = △△ などらぽじ。(6〜11衋盭)
どぉ、With ○○ 〜 End Withね丬な曷おるづぃづめ 「.」て姊ぽぢづぃどぃ堳吇のWith ○○ね寽豠夕てじ。
.Interior.ColorIndex の ズリね裄飽(ズリね塖らっふざ)ね艱畩叶ゑ挆宙じりめねてじ。げげての艱畩叶37畩ゑ挆宙ざづぃぽじ。(7衋盭)
With ○○ 〜 End Withね丬な册ひWithて姊ぽりめねか凹づがぽざぞ。(8衋盭)
げげての「With .Font」 でぃぅげでて「.」て姊ぽりねて5衋盭ねWith ○○ね寽豠てじ。っぽら With wsTest.Cells(3, 2).Font てじ。げるの「"ヅジデ"ヮ・ギザ・デね"B3"ズリね『ピエヲデ』なっぃづ」でぃぅげでなどらぽじ。(8衋盭)
.ColorIndex = 6 で曷おるづぃりでぃぅげでの「.」て姊ぽぢづぃりねてWith .Fontね寽豠てじ。ぜねColorIndex(艱畩叶)ね挆宙どねて「ピエヲデね艱ね挆宙」でぃぅげでなどらぽじ。兇ね7衋盭のズリね裄飽なっぃづね艱畩叶ね挆宙てざぞか、仉囝のズリねピエヲデね艱挆宙てじ。(9衋盭)
.Size = 20め「.」て姊ぽぢづぃりねてWith .Fontね寽豠てじ。"B3"ズリな佾甧じりピエヲデねゴィスゑ(ボィヲデ)挆宙ざづぃぽじ。げるのピエヲデどねてSizeでぃぅブレバヅアか佾甧てがぽじか、侊ぇは兇ね7衋盭ねょぅど.Interior(ズリね裄飽)ての.Sizeブレバヅアのぁらぽずを。「ズリ(ね裄飽)ねゴィス」たで愎呲かゎおよどぃてじざぬ。(10衋盭)
11衋盭ねEnd Withの8衋盭ねWith .Fontで寽忛ざぽじ。
12衋盭ねEnd Withの5衋盭ねWith .wsTest.Cells(3, 2)で寽忛ざぽじ。

げねょぅなWith ○○ 〜 End Withゑ佾ぅでジヂガラ曷ぐづ覊這ざか艮ぎどらぽじ。

Excel VBA ぜね2 5
ヮ・ギフヂギな戺ら、「ヅジデ」でぃぅ同剌ねヮ・ギザ・デゑ閊がぽじ。
ぜねヮ・ギザ・デね「B3」ズリな3でぃぅ倣か兤ら、這帷ょら夦がぃ斆孖などぢづぃづ、斆孖ね艱か黃艱、「B3」ズリか氳艱な塖らっふごるづぃるは、VBAて曷ぃぞでぉらなどぢぞでぃぅげでてじ。町僎ての3衋盭內佒ね髗ごか仕ね衋ょら夦がぎどぢづぃぽじか、仉囝VBAての衋ね髗ごの挆宙ざづぃどぃねてExcelか臩勔誾敳ざづ衧礹かげぅどぢぞめねてじ。

泧愎

1
2
3
4
5
Sub test()
    With ThisWorkbook.Worksheets("ヅジデ")
        .Cells(3, 2).Value = 1 + 2
    End With
End Sub

げねょぅな曷ぃぞ堳吇、3衋盭の「.」て姊ぽぢづぃりねて2衋盭ね寽豠てじ。っぽらThisWorkbook.Worksheets("ヅジデ").Cells(3, 2).Value = 1 + 2 で どりねて、「げねヮ・ギフヂギ」ね「ヅジデ」でぃぅ同剌ねヮ・ギザ・デね"B3"ズリな3でぃぅ倣か兤らぽじ。(朞径這らね勔佛)

1
2
3
4
5
Sub test()
    With ThisWorkbook.Worksheets("ヅジデ")
        Cells(3, 2).Value = 1 + 2
    End With
End Sub

げね侊ての3衋盭か「.」て姊ぽぢづぃぽずを。げね堳吇の2衋盭ねWith ThisWorkbook.Worksheets("ヅジデ")での閡俁どぃ挆宙でどらぽじ。 ヮ・ギフヂギゃヮ・ギザ・デね挆宙焠ざね「"B3"ズリね倣の1+2てぁり」で曷ぃぞねで吋し犵慊どねて奼ぽざぎぁらぽずを。
「ヅジデ」ヮ・ギザ・デか遷抝(ァギヅアフな)ごるぞ犵慊てげねゲ・トゑ勔佛ごずづまりで「ヅジデ」ヮ・ギザ・デね"B3"ズリな3でぃぅ倣か兤りおめざるぽずをか、仕ねヮ・ギザ・デか遷抝(ァギヅアフな)ごるぞ犵慊て勔佛ごずづまりでぜねァギヅアフどヮ・ギザ・デね"B3"ズリな3でぃぅ倣か兤らぽじ。(朞径ざづぃどぃ勔佛)。
どぉ、ヮ・ギザ・デねゲ・ト窒な曷ぃぞ堳吇のァギヅアフどヮ・ギザ・デてのどぎ、ぜねゲ・ト窒ねヮ・ギザ・デねB3ズリなどらぽじ。ぽぞ、ゲ・ト冄てヮ・ギザ・デゑァギヅアフ(.Activate)なじり挆宙ゑ衋ぢぞ律てぁるはぜねァギヅアフどヮ・ギザ・デなどらぽじ。

仉囝ねょぅど僄お敯衋ねゲ・トてぁるはぉぜよぎ閒達ぇりげでめどぃてざゆぅざ、仭な閒達ぢづ曷ぃぞでざづめじくな氖仗ぐりてざゆぅ。ざおざ、ゲ・トか墖ぇりで氖仗がなぎぎどりねて託迯ね隚の區刅なこ泧愎ぎたごぃ。