Excel VBA質問箱 IV

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

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


15028 / 76734 ←次へ | 前へ→

【67191】Re:Dim As、IF関数のコードがうまく実行されません。
発言  かみちゃん E-MAIL  - 10/11/14(日) 20:06 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>>前回の
>>http://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=67175;id=excel
>>に関連しているのであれば、もう少し簡単にすることができます。
>>("部:"が含まれているときに書き換えると同時にN列の設定をする)
>
>関連しています、それはどんな方法になりますでしょうか。

Hirofumiさんより。またコメントが出ているようですが、
ご自身で書かれたコードをできるだけ活かして、Hirofumiさんのアドバイスを
最低限のものだけ盛り込むとすれば、以下のようになります。

Sub Sample2()
 Const cstrChar As String = "部:"
 Dim GYOU As Long
 Dim Bretu As Range
 Dim lngPos As Long
 Dim Nretu As Variant

 For GYOU = 1 To 5000
  Set Bretu = Range("B", GYOU)
  lngPos = InStr(1, Bretu.Value, cstrChar, vbTextCompare)
  If lngPos > 0 Then
   Nretu = Val(Mid(Bretu.Value, lngPos + Len(cstrChar)))
  Else
   Bretu.Offset(1, 12).Value = Nretu
  End If
 Next GYOU
End Sub
4 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 発言

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