明日やることの覚書的なもの

今日、後輩から、エクセルの表をファイルメーカーのテキストボックスに貼り付けたらTABで不揃いになるので、等幅にできないか的な質問された( ^ω^)・・・

商品AAAAA     5,000円
商品BBBB     2,000円
商品CCC 5,000円
商品DDDDD   3,000円


となるので


商品AAAAA 5,000円
商品BBBB     2,000円
商品CCC5,000円
商品DDDDD3,000円
上のような感じになるようスペースキーペチペチしてたらしい・・・(ここではテーブル使って揃えてます)

下はその問題を解消するために適当に組んだマクロの覚書。
職場は個人のUSBは使えないしメールも自宅から職場へはしないようになっている。
なのでここにMEMO的にアップしておく。こんどはまともな記事をアップしたい。

Sub Macro1()
'
' Macro1 Macro
'セルの値を等幅で揃える?
'

Range("G2").Select
ActiveCell.FormulaR1C1 = "=RC[-5]&"" ""&RC[-6]"

Range("H2").Select
ActiveCell.FormulaR1C1 = "=""第""&RIGHT("" _""&RC[-4],2)&""期"""

Range("I2").Select
ActiveCell.FormulaR1C1 = "=RIGHT(""___________""&TEXT(RC[-3],""#,###円 ""),12)" ’”_”は半角誌ペース

Range("G:I").Select

Selection.Value = Selection.Value  ’式を値貼り付け

Range("F2").Select
’とりあえずここまで
End Sub
関連記事
スポンサーサイト



コメントの投稿

非公開コメント

訪問者さま
カレンダー
09 | 2020/10 | 11
- - - - 1 2 3
4 5 6 7 8 9 10
11 12 13 14 15 16 17
18 19 20 21 22 23 24
25 26 27 28 29 30 31
プロフィール

arakurikaesiki

Author:arakurikaesiki
阿良々木(あらくりかえしき)と申します。趣味はらくがき/アクアリウム、好きな小説は物語シリーズです。あと、仕事で楽したいためにExcelのVBAをちょくちょくいじってます。
なお、当ブログはリンクフリーです、よろしければリンク貼ってください。
また、ブロともさまも募集中です。コメントとかもらえるとすごく喜びます。

ブロとも様募集中ですm(_)m

この人とブロともになる

最新コメント
リンク(敬称略)
らくがき
新着記事
参照不可? Oct 20, 2020
基幹システムの入れ替えと使えなくなるファイルメーカー Sep 30, 2020
季節の変わり目 Sep 01, 2020
ロード長くね? Aug 19, 2020
ルフィを描いてみた Aug 17, 2020
囲んで塗る? Aug 14, 2020
100.00cm Aug 12, 2020
サメ Aug 08, 2020
チョット多すぎる Aug 08, 2020
・・・・・・ Aug 06, 2020
カテゴリ
アクセスランキング
[ジャンルランキング]
ブログ
3191位
アクセスランキングを見る>>

[サブジャンルランキング]
イラストブログ
115位
アクセスランキングを見る>>
にほんブログ村(ビオトープ)
月別アーカイブ
人気ブログランキング
更新通知登録ボタン

更新通知で新しい記事をいち早くお届けします

検索フォーム