|
▼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
|
|