| |
▼T さん：
返事ありがとうございます。
>F8でステップインされると分かると思いますが･･･
>
>>コピー元は"入力シートのコード1がA8:Z8"コード2がA9:Z9です。
>>コピー先は"請求書作成"のAN3:BM3［コード1〜80全て］
>>コピー範囲を変更する必要が生じたのですが［AM3:DM3→AN3:BM3へ変更］
>>下記こーどの変数iは何を意味するのでしょうか
>
>iは変数です･･･１から80＋７を指しています
+７ですか？この+７をする意味は？
よく解らないです。
もう少し詳しい説明をお願いしたいのですが
よろしくお願いします。
初心者で申し訳ないです。
>
>>Sub MainR()
>> Dim Rtn As String
>> Dim X As Long
>>
>> Rtn = InputBox("会社１から８０のいずれかを入力してください")
>> 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"とは
>> 何を意味するのですか？
>Ａ列の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
|
|
タッチ
- 07/1/8(月) 12:08 -
