Excel VBA質問箱 IV

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

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


26742 / 76732 ←次へ | 前へ→

【55320】コ−ド表記を分類表記にするには
質問  かずお  - 08/4/27(日) 17:11 -

引用なし
パスワード
   さらに以下のソースでは実行後にとんでもない範囲まで選択してしまうのですが?どおしてでしょうか?

Private Sub CommandButton2_Click()
 Dim strArr() As String
 Dim V As Variant
 Dim rg As Range
 '最終セル
 ActiveCell.SpecialCells(xlLastCell).Select
 endr = ActiveCell.Row
 For j = 2 To endr
 Set rg = Cells(j, 1)

 '−の位置で分けて、配列に格納する
 strArr = Split(rg.Value, "-")
 i = 1         
 For Each V In strArr
  rg.Offset(0, i) = V
  i = i + 1
 Next
  Cells(1, 3) = "大分類"
  Cells(1, 4) = "中分類"
  Cells(1, 5) = "小分類"
 Next
End Sub

です。何分素人のため失礼かと思いますが、前の問題も含め宜しくお願い致します。
0 hits

【55318】コ−ド表記を分類表記にするには かずお 08/4/27(日) 14:39 質問
【55320】コ−ド表記を分類表記にするには かずお 08/4/27(日) 17:11 質問
【55321】Re:コ−ド表記を分類表記にするには Hirofumi 08/4/27(日) 17:20 回答
【55328】コ−ド表記を分類表記にするには かずお 08/4/28(月) 14:58 お礼
【55322】Re:コ−ド表記を分類表記にするには かみちゃん 08/4/27(日) 17:21 発言
【55323】Re:コ−ド表記を分類表記にするには かみちゃん 08/4/27(日) 17:48 発言
【55329】コ−ド表記を分類表記にするには かずお 08/4/28(月) 15:07 お礼

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