Excel VBA質問箱 IV

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

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


21815 / 76734 ←次へ | 前へ→

【60307】Re:複数のセルを選択
お礼  なっちょめ E-MAIL  - 09/2/9(月) 11:59 -

引用なし
パスワード
   ichinoseさん

いつもお世話になっております。
まずは、お礼を。
やりたい事は完璧にできました。
ありがとうございました。

あと、どのように試してみたのかという所を記載していなくて
申し訳ありませんでした。
今後は、自分でやった事、試してみた事を記載するようにします。
ご指摘ありがとうございました。
(自分の履歴をみるのにも大切だと思います)

それでは、実際どのようにstrconvを使って試してみたかというと、
恥ずかしいですが下記のようなコードを書いていたと思います。

If Not .Exists(Strconv(UCase(Trim(CStr(crng.Value))),vbKATAKANA) Then
  Set .Item(Strconv(UCase(Trim(CStr(crng.Value))),vbkatakana) = crng
Else
  Set .Item(Strconv(UCase(Trim(CStr(crng.Value))),vbkatakana) = Application.Union(.Item(Strconv(UCase(Trim(CStr(crng.Value))),vbkatakana), crng)
End If

ど素人ですいません・・・。
本当にありがとうございました。

4 hits

【59994】複数のセルを選択 なっちょめ 09/1/22(木) 20:54 質問
【59995】Re:複数のセルを選択 ichinose 09/1/22(木) 21:31 発言
【60007】Re:複数のセルを選択 なっちょめ 09/1/23(金) 12:41 質問
【60015】Re:複数のセルを選択 ichinose 09/1/23(金) 15:07 発言
【60219】Re:複数のセルを選択 なっちょめ 09/2/4(水) 23:23 質問
【60220】Re:複数のセルを選択 ichinose 09/2/4(水) 23:42 発言
【60272】Re:複数のセルを選択 なっちょめ 09/2/6(金) 17:51 質問
【60290】Re:複数のセルを選択 ichinose 09/2/7(土) 22:08 発言
【60307】Re:複数のセルを選択 なっちょめ 09/2/9(月) 11:59 お礼
【60016】Re:複数のセルを選択 プルート 09/1/23(金) 16:18 発言
【60021】Re:複数のセルを選択 なっちょめ 09/1/23(金) 18:17 お礼
【60028】Re:複数のセルを選択 なっちょめ 09/1/24(土) 14:09 お礼

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