*

tmp

公開日: : Excel VBA

Dim str(1000, 2) As String
Dim cnt  As Integer
cnt = 1
Do While Range(“A” & cnt).Value <> “”
str(cnt – 1, 0) = Range(“A” & cnt).Value
str(cnt – 1, 1) = Range(“B” & cnt).Value
str(cnt – 1, 2) = Range(“C” & cnt).Value
cnt = cnt + 1

Loop

admax_area



関連記事

no image

メール作成

新規メールを作成する。 Dim strMOJI As String '本文 Dim strS

記事を読む

no image

mail

http://okwave.jp/qa/q7645239.html

記事を読む

no image

エクセルファイルをPDF化する

とりあえず動くやつ 事前準備 ダウンロード:BullZip http://www.bull

記事を読む

admax_area



Message

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

CAPTCHA


日本語が含まれない投稿は無視されますのでご注意ください。(スパム対策)

admax_area



PAGE TOP ↑