Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3780 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【60232】条件を付けて文字を入力したい Naomi 09/2/5(木) 14:58 質問[未読]
【60235】Re:条件を付けて文字を入力したい にぃ 09/2/5(木) 15:45 発言[未読]
【60250】Re:条件を付けて文字を入力したい Naomi 09/2/5(木) 21:46 お礼[未読]
【60232】条件を付けて文字を入力したい
質問  Naomi  - 09/2/5(木) 14:58 -
引用なし
パスワード
   E列の文字の左から5文字をキーにして、D列に文字を入れたいと考えています

5文字がコレなら、D列はコレといった条件が多いので（増減がある）、
関数ではなくマクロで処理できればと考えております

E列は2行目から始まる形で最終行は決まっておりません
（D列はE列と同じ数になります）

例：E2「12345678」 → D2「りんご」
　 ※左から5文字が「12345」なら「りんご」といった内容です

よろしくお願い致します。
【60235】Re:条件を付けて文字を入力したい
発言  にぃ  - 09/2/5(木) 15:45 -
引用なし
パスワード
   ▼Naomi さん：
こんにちは！

まず、
>マクロで処理できればと考えております
とありますが、コマンドボタンなどを作り、それを押したときの操作のような
感じでいいのでしょうか？
もしくはE列に文字を入れて「Enter」押したとき、などもありますが。
こちらならシートモジュールの操作ですね。


処理操作では、Left と Select Case を使えば出来るかと思います。

>E列は2行目から始まる形で最終行は決まっておりません
>（D列はE列と同じ数になります）
最終行は標準モジュールでは取得する必要がありますが、
シートモジュールで操作する場合、取得しないでも出来ます^^

Rw = Range("E" & Rows.Count).End(xlUp).Row
で出来るかと思います。(こちらは検索するとたくさん出てきますよ。)
【60250】Re:条件を付けて文字を入力したい
お礼  Naomi  - 09/2/5(木) 21:46 -
引用なし
パスワード
   select Caseでうまくできました。
ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3780 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free