Excel VBA質問箱 IV

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

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


35297 / 76738 ←次へ | 前へ→

【46642】Re:できました!
お礼  みどりかなぶん  - 07/2/8(木) 20:49 -

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


ichinase様、
お返事ありがとうございます。教えていただいた方法を元に別の変数を加えてそれに
for以下のコードを足して

     For pdx = LBound(myray, 1) To UBound(myray, 1)
>>>    For qdx = LBound(myray, 2) To UBound(myray, 2)
>      myray(pdx, qdx) = StrConv(myray(pdx, qdx), _
>                 vbKatakana )
>>>     Next
>>>    Next

その部分を"b1:b3"に移るようにしてうまくいきました。以前は

 Range("a1:a3").Value = rarray    の前にfor以下のコードを入れたので全部
同じになってしまったようです。時間がかかりましたがやっとできました。わからないところ、できないところが勉強になりました。kein様のやり方はどう変えればいいかまだ解らないのですが気長に試してみます。お世話になりました。

0 hits

【46452】できました! みどりかなぶん 07/2/3(土) 20:58 お礼
【46453】Re:できました! マクロマン 07/2/3(土) 20:59 発言
【46454】Re:できました! みどりかなぶん 07/2/3(土) 21:15 発言
【46455】Re:できました! ichinose 07/2/3(土) 21:20 発言
【46564】Re:できました! みどりかなぶん 07/2/6(火) 21:15 お礼
【46574】Re:できました! ichinose 07/2/6(火) 23:32 発言
【46642】Re:できました! みどりかなぶん 07/2/8(木) 20:49 お礼
【46456】Re:できました! Kein 07/2/3(土) 21:34 回答
【46567】Re:できました! みどりかなぶん 07/2/6(火) 21:27 お礼

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