Excel VBA質問箱 IV

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

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


36276 / 76732 ←次へ | 前へ→

【45639】Re:コピー範囲についておしえて
発言  タッチ  - 07/1/8(月) 12:08 -

引用なし
パスワード
   ▼T さん:
返事ありがとうございます。

>F8でステップインされると分かると思いますが・・・
>
>>コピー元は"入力シートのコード1がA8:Z8"コード2がA9:Z9です。
>>コピー先は"請求書作成"のAN3:BM3[コード1〜80全て]
>>コピー範囲を変更する必要が生じたのですが[AM3:DM3→AN3:BM3へ変更]
>>下記こーどの変数iは何を意味するのでしょうか
>
>iは変数です・・・1から80+7を指しています
+7ですか?この+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を
>意味しています。
両方とも行を指しているのですか
たとえばInputBoxで3を入力した場合+7なら10ですが、いまいち理解できません。
・・・・・?範囲を指定しているのでは?
> 
>>  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 お礼

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