Excel VBA質問箱 IV

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

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


15034 / 76734 ←次へ | 前へ→

【67185】Re:Dim As、IF関数のコードがうまく実行されません。
質問  あんず  - 10/11/14(日) 18:28 -

引用なし
パスワード
   かみちゃんさん、お返事ありがとうございます!!

Dim GYOU As Long
Dim Bretu As Range
Dim Nretu As Variant

For GYOU = 1 To 5000
 Set Bretu = Range("B", GYOU)   (←ここでひっかかりました。)
 
 If Bretu.Value = "4000" Then
 Nretu = Bretu.Value
   
 Else
 Bretu.Offset(1, 12).Value = Nretu
 End If
 
Next GYOU

上記に書き換えましたが、引っかかってしまいました。

なぜでしょうか。。。
3 hits

【67183】Dim As、IF関数のコードがうまく実行されません。 あんず 10/11/14(日) 17:55 質問
【67184】Re:Dim As、IF関数のコードがうまく実行され... かみちゃん 10/11/14(日) 18:10 発言
【67185】Re:Dim As、IF関数のコードがうまく実行され... あんず 10/11/14(日) 18:28 質問
【67186】Re:Dim As、IF関数のコードがうまく実行され... かみちゃん 10/11/14(日) 18:33 発言
【67187】Re:Dim As、IF関数のコードがうまく実行され... あんず 10/11/14(日) 18:49 質問
【67188】Re:Dim As、IF関数のコードがうまく実行され... かみちゃん 10/11/14(日) 19:00 発言
【67189】Re:Dim As、IF関数のコードがうまく実行され... あんず 10/11/14(日) 19:46 質問
【67190】Re:Dim As、IF関数のコードがうまく実行され... Hirofumi 10/11/14(日) 19:58 発言
【67191】Re:Dim As、IF関数のコードがうまく実行され... かみちゃん 10/11/14(日) 20:06 発言

15034 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free