Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


36278 / 76732 ←次へ | 前へ→

【45637】Re:コピー範囲についておしえて
質問  T  - 07/1/8(月) 8:55 -

引用なし
パスワード
   ▼タッチ さん:
F8でステップインされると分かると思いますが・・・

>コピー元は"入力シートのコード1がA8:Z8"コード2がA9:Z9です。
>コピー先は"請求書作成"のAN3:BM3[コード1〜80全て]
>コピー範囲を変更する必要が生じたのですが[AM3:DM3→AN3:BM3へ変更]
>下記こーどの変数iは何を意味するのでしょうか

iは変数です・・・1から80+7を指しています

>Sub MainR()
>  Dim Rtn As String
>  Dim X As Long
>
>  Rtn = InputBox("会社1から80のいずれかを入力してください")
>  X = Val(Rtn)
>  Call Code(X + 7)
>End Sub
>
>i の意味が不明です
>Sub Code(i As Long)
>  Dim rc As Long
>  rc = MsgBox(Sheets("入力").Range("B" & i).Value & "の請求書作成します。 ", vbYesNo)
>If rc = vbYes Then
>  rc = MsgBox("内訳は、" & Sheets("入力").Range("J" & i).Value & "です。 ", vbYesNo)
>If rc = vbYes Then
>  Sheets("入力").Select
>  Range("A" & i & ":BN" & i).Select ←※ココのコードが不明":BN"とは
>                     何を意味するのですか?
A列のiは行を、BN列のiは行を指します・・・iはInputBoxで入力した数字+7を
意味しています。
 
>  Selection.Copy
>  Sheets("請求書作成").Select
>  Range("AN3").Select
>  ActiveSheet.Paste
>  Sheets("入力").Select
>  Application.CutCopyMode = False
>  Range("A7").Select
>  Sheets("請求書作成").Select
>    Range("AM3:DA3").Select
>       ~~~~~~~~~~
>       "AN3:BM3までの範囲にする。
>  With Selection.Interior
>    .ColorIndex = 10
>    .Pattern = xlSolid
>    .PatternColorIndex = xlAutomatic
>  End With
>  Application.Goto Reference:="R1C1"
>End If
>End If
>End Sub

1 hits

【45635】コピー範囲についておしえて タッチ 07/1/8(月) 2:35 質問
【45637】Re:コピー範囲についておしえて T 07/1/8(月) 8:55 質問
【45639】Re:コピー範囲についておしえて タッチ 07/1/8(月) 12:08 発言
【45643】Re:コピー範囲についておしえて りん 07/1/8(月) 14:22 発言
【45645】Re:コピー範囲についておしえて タッチ 07/1/8(月) 14:39 発言
【45647】Re:コピー範囲についておしえて T 07/1/8(月) 15:22 発言
【45648】Re:コピー範囲についておしえて タッチ 07/1/8(月) 15:37 お礼

36278 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free