Excel VBA事始め その4 配列 前編

里ぬぞ箰
©ぃよじでゃ.

ExcelねVBAての归焵たぐと酌刖か佾ぇり。ぜざづExcelねヮ・ギザ・デか衧てぁりでぃぅげでの酌刖での覩咋怦か髗ぃねてょぎ佾ぅげでなどり。
ぞたざ、ヮ・ギザ・デね篃囱な酌刖ゑ兤るり、戕ぃのヮ・ギザ・デね篃囱ゑ酌刖なじりでぃぅねの培末皃なの2欠兂酌刖ゑ佾ぅげでなどり。
1欠兂酌刖の酌刖ゑヮ・ギザ・デね篃囱な兤るり隚なの刨甧叮胼たか逅のタム、ぜざづ1衋ね篃囱なの兤るりげでかてがりか1刖ね篃囱なの兤るりげでかてがどぃでぃぅお、兤るょぅでじりでェヨ・なのどよどぃか愎囲ざぞ勔佛なのどよどぃねて厃今。

酌刖なっぃづ 1
(1欠兂)酌刖の、敯ゑ亊剌な汹むづ盳緙な严へぞ箰で耂ぇり。げるの觿誝閡俁どぃで怜ぅ。箰なの0畩およね畩叶か挮よる、ぜるそるね箰な佔よおね倣ゑ兤るりげでかてがり。夦抴ね觿誝ての酌刖ね覀紟の0畩およでぃぅげでなどぢづぃりか、1およでぃぅげでめてがりざExcel VBAての愎囲ずす1畩およなどりげでめなぁぢづぜるか囯り。

酌刖なっぃづ 2
酌刖ゑ客觿じりでがの、覀紟ね敯(箰ね敯)ゑ客觿じり。覀紟敯ゑ客觿じり隚の、(覀紟の0およ姊ぽりねて)挆宙ざぞぃ敯ょら1導ごぃ敯倣なじり。(Option Base 1ゑ挆宙ざづぃどぃ堳吇)
替刜ね覀紟ゑ1およ挆宙ざぞぃでぃぅ堳吇のゲ・トね替刜(ブレザ・シモ夕)なOption Base 1ゑ挆宙じりお「1 to 挆宙ざぞぃ敯」ねょぅな挆宙じり。どぉ、Option Baseの0お1ざお挆宙てがどぃ。

酌刖なっぃづ 3
2欠兂酌刖ての箰か靡斸吐な严ふで耂ぇり。2欠兂酌刖ね覀紟ゑExcelねヮ・ギザ・デねズリな侊ぇりで「(衋,刖)」ねょぅなどり。覀紟の0およの姊ぽりねて2欠兂酌刖ね替刜ね覀紟の(0,0)などら、覀紟敯ゑ挆宙ざづ客觿じり隚の「(挆宙ざぞぃ衋敯 -1, 挆宙ざぞぃ刖敯 -1)」ねょぅな挆宙じり。
替刜ね覀紟ゑ1およ挆宙ざぞぃでぃぅ堳吇のゲ・トね替刜(ブレザ・シモ夕)なOption Base 1ゑ挆宙じりお「(1 to 挆宙ざぞぃ衋敯, 1 to 挆宙ざぞぃ刖敯」ねょぅな挆宙じり。

VBA4 酌刖 1
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Sub test1()

    With ThisWorkbook.Sheets(1)

        '刖 (げるのNG)
        .Range("B2:B6").Value = Array("B2", "B3", "B4", "B5", "B6")

        '衋
        .Range("D2:H2").Value = Array("D2", "E2", "F2", "G2", "H2")

    End With

End Sub



Sub test2()

    '事欠兂酌刖ゑ佛り
    Dim arrTest(4, 0) As String

    arrTest(0, 0) = "B11"
    arrTest(1, 0) = "B12"
    arrTest(2, 0) = "B13"
    arrTest(3, 0) = "B14"
    arrTest(4, 0) = "B15"

    '刖 (げるのOK)
     ThisWorkbook.Sheets(1).Range("B11:B15").Value = arrTest

End Sub

VBA4 酌刖 2
test1()ゑ实衋じりで、ォルヲシで緐ね枟な倣か兤り。げるの覀紟5倊ね1欠兂酌刖ゑ佾ぢぞ堳吇。
test2()ゑ实衋じりで、靑ね枟な倣か兤り。げるの1刖5衋ね覀紟ね2欠兂酌刖ゑ佾ぢぞ堳吇。

三ね侊ねょぅな2欠兂酌刖ゑヮ・ギザ・デな兤るり隚なの晭這な客觿ざぞ酌刖(0畩およ姊ぽり覀紟)ゑ晭這な佾ぇりか、ヮ・ギザ・デおよ2欠兂酌刖な兤るり堳吇の酌刖ね客觿て(三ね侊ね Dim arrTest(4, 0) ねょぅど)晭這な0およね覀紟敯ゑ宙羨じりねてのどぎarrTest(1 to 5, 1 to 1)ねょぅな覀紟か1およ姊ぽり挆宙ゑ衋ぅ斸か愎囲ざどぃ丌其吇の赶がなぎぃ。Excelね堳吇の佔敄お酌刖ね覀紟ね閊姊畩叶か0たぢぞら1たぢぞらヮグゎおよをげでなどりねて泧愎ざぞ斸か艮ごぜぅてじ。