| |
▼Asaki さん：
>>一つ前の削除ではなく、
>良く意味がわかりません。
>そんな風なコードにした覚えはないんですが。
そうですね、私が理解出来ないだけのようです。
出来ました。やりたかったこれです！
コードの書き方が私の思っていたものと違うので、なぜ
lngSign = -1
で、出来るのかがわからないのですが。（だいたいはわかりますが・・）
Q1 ifに関するElseはどこにあるのでしょう？もし書くとしたらどこですか？
Q2 Cells(65536, 1)と、行の最後まで書く必要的なものがわからないんです。
配列を行っているのはわかるのですが。。
何から何までお手数なのですが、コメントを書いていただきたいのですが
駄目でしょうか？
お忙しいようでしたらあきらめます。
私は下のように書いておりました。
Private Sub CommandButtonあめ_Click()
Dim L As Integer
Cells(1, 1).Value = Cells(1, 1) + 1 'セルの(1.1)に"初期値0"＋１
L = Cells(1, 1).Value 'Lに入れる
Cells(L + 1, 2).Value = "あめ" '(L+1)行、2列に表示！
Dim k As Currency '金額表示
Cells(1, 2).Value = Cells(1, 2) + 1 'セルの(1.2)に"初期値0"＋１
k = Cells(1, 2).Value 'kに入れる
Cells(k + 1, 3).Value = CCur("100") '(k+3)行、3列に表示！
End Sub
|
|
いし
- 04/7/20(火) 18:24 -
