Excel VBA質問箱 IV

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

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


13371 / 13645 ツリー ←次へ | 前へ→

【5641】左詰めから右詰めにするには? いさお 03/5/23(金) 15:33 質問
【5646】Re:左詰めから右詰めにするには? こうちゃん 03/5/23(金) 17:22 回答
【5657】Re:左詰めから右詰めにするには? bykin 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:左詰めから右詰めにするには?
回答  bykin  - 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 -

引用なし
パスワード
   できました!、ありがとうございました。

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