Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

66670 / 76807

←次へ　｜　前へ→


	【14700】記事番号14466の応用で

バカボン

- 04/6/5(土) 17:51 -


	引用なし

	パスワード

14466とSheetなど全く同じ条件で、
今回は値の違うものをいれたいのですが、記述の仕方がわかりません。
今回挿入したい値は、
./01/b1.cgi?cmd=s&sc=ball&S_1_Num_UserNum=87&UserNum=87　←挿入したいデータ
　↑　　　　　　　　　　　　　　　　　　　 ↑　　　　↑
列番号　　　　　　　　　　　　　　　　　　 NO　　　　NO　

<Sheet2>
A　　　B　C　　　　　　　　　 D　　　 E　　　 F　　　　　　　G　
PASS　NO 項目１　　　　　　項目２　項目３　項目４　　　　項目５
abc　　1 ./01/b1.cgi?cmd=s&sc=ball&S_1_Num_UserNum=1&UserNum=1　　　　　　
ded　　5　　　　　　　　　./02/b1.cgi?cmd=s&sc=ball&S_1_Num_UserNum=5&UserNum=5

下記は以前、教えて頂いたマクロの記述ですが、式の式の記述がわかりません。
お手宇卯ですがご教授お願いします
=================================================================
Sub test()
　 Dim rng As Range
　 With Worksheets("sheet1")
　　　Set rng = .Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(xlUp))
　　　End With
　 If rng.Row > 1 Then
　　　With Worksheets("sheet2")
　　　　 .Range(rng.Resize(, 2).Address).Value = _
　　　　　　　　 rng.Resize(, 2).Value
　　　　 With .Range(rng.Offset(0, 2).Resize(, 10).Address)
　　　　　　.Formula = _
　　　　　　　　 "=if(sheet1!c2<>"""",""./id.cgi?cm?tx""&column()-2&""?num=""&$b2,"""")"
　　　　　　.Value = .Value
　　　　　　End With
　　　　 End With
　　　End If
End Sub

0 hits

▼

【14700】記事番号14466の応用で バカボン 04/6/5(土) 17:51

≪