| |
▼バカボン さん：
こんばんは。
>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,"""")"
.Formula = _
"=if(sheet1!c2<>"""",""./""&text(column()-2,""00"")&""/b1.cgi?cmd=s&sc=ball&S_1_Num_UserNum=""&$b2&""&UserNum=""&$b2,"""")"
' ↑これに変更して下さい
> .Value = .Value
> End With
> End With
> End If
>End Sub
ですが、これは、文字を連結する式とワークシート関数の組み合わせです！！
いくつかのワークシート関数とＶＢＡで数式やワークシート関数の入力の
方法を理解すれば、応用できると思いますよ。
例えば、
・文字列として「"」を一つ表すのには
ＶＢＡでは、「""」としなければならないこと。
・数式として、文字を連結するのには「&」でつなぐこと。
それから、コードを書く前に
一度、セルに望んでいる答えが表示されるような
数式を考えて入れてみてください。
セルＤ２なら、
「=IF(Sheet1!D3<>"","./"&TEXT(COLUMN()-2,"00")&"/b1.cgi?cmd=s&sc=ball&S_1_Num_UserNum="&$B3&"&UserNum="&$B3,"")」
となりますよね。
これをVBAで実現するにはどうすればよいか？
から 考えてみて下さい。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
- 04/6/5(土) 17:51 -
