Excel VBA質問箱 IV

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

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


55171 / 76738 ←次へ | 前へ→

【26345】Re:おしえてください
発言  知ろう途  - 05/7/2(土) 9:16 -

引用なし
パスワード
   ど〜もです。

>連続して変換できるようにしたい
左から2文字を連続変換するなら・・
Sub RenzokuHenkan()
 
 Dim r As Long, n As Long
  '入力されてるA列の最終行数を取得
  r = Range("A" & Rows.Count).End(xlUp).Row

  For n = 1 To r
   Cells(n, 2).Value = Left(Cells(n, 1).Value, 2)
  Next

End Sub

>A列に文字数(左から2〜3文字)がランダムにある場合
とはどのような時でしょうか?(読解力が乏しいもんで・・)
悪魔でも・・いやあくまでも最初の質問に対する例をあげただけなので
具体的に教えてもらえれば回答出来ますよ!  
たったぶん・・・

>また、B列ではなくA列に置き換えることは可能でしょうか?
上記の一部を  
   Cells(n, 1).Value = Left(Cells(n, 1).Value, 2)
とすれば可能ですが、入力済みのセルに対するマクロの実行時の失敗は
元に戻せなくなるので、念のためバックアップしといて下さい。

0 hits

【26309】おしえてください tomo 05/7/1(金) 10:13 質問
【26310】Re:おしえてください m2m10 05/7/1(金) 10:27 発言
【26319】Re:おしえてください tomo 05/7/1(金) 13:08 質問
【26321】Re:おしえてください 知ろう途 05/7/1(金) 13:28 回答
【26341】Re:おしえてください tomo 05/7/1(金) 23:01 質問
【26344】Re:おしえてください ぴかる 05/7/2(土) 8:54 回答
【26353】Re:おしえてください tomo 05/7/2(土) 12:43 お礼
【26345】Re:おしえてください 知ろう途 05/7/2(土) 9:16 発言
【26348】Re:おしえてください tomo 05/7/2(土) 10:10 質問
【26350】Re:おしえてください 知ろう途 05/7/2(土) 10:33 発言
【26354】Re:おしえてください tomo 05/7/2(土) 12:45 お礼

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