Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

26885 / 76738

←次へ　｜　前へ→


	【55179】Re:数値を各セルに分ける

VBWASURETA - 08/4/21(月) 10:10 -


	引用なし

	パスワード

▼koshimizu さん：
おはようございます。

大体出来てると思いますが。
後１文字を取得(何故Wideにしているのかは謎ですけど・・・)したら
直接入れないようにして変数で判定するだけで良いだけな気がしますよ？

>For I = 1 To Len(st1)
>　 Cells(s + 1, I + 2).Value = StrConv(Mid(st1, I, 1), vbWide)
>Next I

それと気になったのですけど
CellsメソッドのS + 1はSだけで良くないですか？
１行下を見る気がします・・・

2 hits

▼

【55178】数値を各セルに分ける koshimizu 08/4/21(月) 9:32