Ｐａｇｅ 364 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼Formatについて １２３ 02/11/19(火) 18:12 ┗Re:Formatについて ichinose 02/11/19(火) 19:34 ┗Re:Formatについて １２３ 02/11/19(火) 20:09 ─────────────────────────────────────── ■題名 ： Formatについて ■名前 ： １２３ ■日付 ： 02/11/19(火) 18:12 -------------------------------------------------------------------------
| 教えてください。 これまでいろいろとユーザーフォームについて 教えていただいたのですが、 新たに、WorkSheet上で操作を行う必要が出てきました。 あるSelectionの範囲の数値を 1. 文字列にする 2. 6桁の文字にする（例：123→000123 12345→012345 1→000001） 上記をモジュールに記述したいのですが、 どうしても できません。 教えてください。お願いします。 |
| ▼１２３ さん： こんばんは。 >これまでいろいろとユーザーフォームについて >教えていただいたのですが、 >新たに、WorkSheet上で操作を行う必要が出てきました。 > >あるSelectionの範囲の数値を >1. 文字列にする >2. 6桁の文字にする（例：123→000123 12345→012345 1→000001） > >上記をモジュールに記述したいのですが、 >どうしても できません。 > >教えてください。お願いします。 '========================================================= Sub test1() Dim rngs As Range Set rngs = Selection With rngs .NumberFormat = "@" .HorizontalAlignment = xlRight End With For Each rng In rngs With rng .Value = Format(.Value, "000000") End With Next End Sub こういうことでよろしいですか？ |
| ▼ichinose さん： こんばんは。 Align Rightまで お気遣いいただきまして ありがとうございます。 申しぶんのないものでした。 ありがとうございました。 私は、やっぱり Dim とか Set とか、まだ理解できていません。 |