Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
13391 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【5641】左詰めから右詰めにするには？ いさお 03/5/23(金) 15:33 質問
【5646】Re:左詰めから右詰めにするには？ こうちゃん 03/5/23(金) 17:22 回答
【5657】Re:左詰めから右詰めにするには？ ｂｙｋｉｎ 03/5/23(金) 20:20 回答
【5696】Re:左詰めから右詰めにするには？ いさお 03/5/28(水) 9:47 お礼
【5641】左詰めから右詰めにするには？
質問  いさお  - 03/5/23(金) 15:33 -
引用なし
パスワード
   はじめましてVBA初心者です。教えてください。
Dim TEST As String * 10
と書き、TEST＝"ABC"と代入し
これをファイルに書き込みしますと、"ABC*******"と左詰めになります。
これを右詰めにする方法などありますでしょうか？

宜しくお願い致します。
【5646】Re:左詰めから右詰めにするには？
回答  こうちゃん E-MAIL  - 03/5/23(金) 17:22 -
引用なし
パスワード
   いさおさん、こんにちは

こんなんでいいんでしょうか？
実際はファイル書き込み時に右詰するんでしょうが・・

Sub TEST()

　　Dim TEST As String * 10
　　
　　TEST = Right(Space(10) & "ABC", 10)
　　MsgBox "[" & TEST & "]"

End Sub
【5657】Re:左詰めから右詰めにするには？
回答  ｂｙｋｉｎ  - 03/5/23(金) 20:20 -
引用なし
パスワード
   こんばんわ。

RSet ステートメントを使えばええんとちゃいまっか？
こうちゃんはんのコードを拝借したらこんな感じです。

Sub Rset_Test()
　　Dim TEST As String * 10
　　RSet TEST = "ABC"
　　MsgBox "[" & TEST & "]"
End Sub

詳しくはヘルプで調べてみてな。
ほな。
【5696】Re:左詰めから右詰めにするには？
お礼  いさお  - 03/5/28(水) 9:47 -
引用なし
パスワード
   できました！、ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
13391 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free