Excel VBA質問箱 IV

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

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


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

15108 / 76807

←次へ　｜　前へ→


	【67184】Re:Dim As、IF関数のｺｰﾄﾞがうまく実行されません。

かみちゃん

- 10/11/14(日) 18:10 -


	引用なし

	パスワード

こんにちは。かみちゃん　です。

>ここで、値が4000ならひとつ下の行のN列に4000と入力し、2000なら2000を入力、それ以外ならN列のひとつ上のｾﾙをｺﾋﾟｰさせる。とゆう感じにしたいのです。
>
>で、自分なりに書いてみたけど成功しません。

ご自身で書かれたコードをできるだけ活かすように修正するとすれば、
以下のようにすればできると思います。

Sub Sample()
　Dim GYOU As Long
'　Dim Bretu As Integer
　Dim Bretu As Range
　Dim Nretu As Variant
　
　For GYOU = 1 To 5000
　　Set Bretu = Range("B", GYOU)
　　　
　　If Bretu.Value = "4000" Then
'　　　 Bretu.Offset(1, 12).Value = "4000"
　　　 Nretu = Bretu.Value
'　　　 Else: Offset(-1).Copy
　　Else
　　　 Bretu.Offset(1, 12).Value = Nretu
　　End If
　　　
'　　ActiveCell.Offset(1).Activate
　Next GYOU
End Sub

がんばってください。

1 hits

▼

【67183】Dim As、IF関数のｺｰﾄﾞがうまく実行されません。 あんず 10/11/14(日) 17:55