|
▼とど さん:
アップいただいたコードをそのまま取り込んで動かしましたが最初は2行目、
以降、3行目、4行目と、順に転記されますが?
ただ(もちろん)転記データがすべて『空白』なら、その行には何もないわけですから
次のクリックでも、その『最後の行』に転記されますが?
もしかして、そうではなく、1行すべて空白でも、次のクリックでは、その空白行の次に
転記したいということですか?(1行空白行をあけて)
もし、そういう要件であれば、少し工夫が必要ですよ。
ところで、
>これは、本当でしたら、わたくしは「カタカナ半角」でTRUEならば、
>任意の文字を返したかったのですが、VBA上の仕様でしょうか。
>半角カタカナを書くと、自動的に全角カタカナに変換されなおされて
>しまい、そで他のサイトで見つけた、「他のシートからコピーして転記」
>などのキーワードで見つけた事を書きました。
>また、今回手持ちの書籍を確認しておりましたが、「全角カタカナ」を
>「半角カタカナ」に変換するスクリプトを見つけました。
> myStr = "アイウ"
> Range("A5").Value = myStr & "→半角に変換"
> Range("B5").Value = StrConv(myStr, vbNarrow)
>これを例えば
>If アカ.Value Then .Cells(myrow, 21).Value = アカ.Caption
>の部分に利用したいなどの場合はいかがなものなのでしょうか。
二度ほど半角カタカナのことに触れておられますが、半角カタカナがどうあれ
転記をどの行にするかと言うこととは関係ないですね。
おやりになりやいことは、テキストボックスに全角カタカナで入力されたものも
セルには半角カタカナになおしてセットしたいということですか?
(半角カタカナを使うのは、あまりおすすめできませんが)
|
|