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

今日、後輩から、エクセルの表をファイルメーカーのテキストボックスに貼り付けたら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

掲示板つくりました(^O^)

 ★ 掲示板を作ってみました ★ 
 ご訪問ありがとうございます。阿良々木(アラクリカエシキ)です。
 また、掲示板を作りましたので是非ご訪問願います。入口
 そんなわけで、今回の記事はエクセルで掲示板を作ってみたです。
 ホントは職場でLAN上に置いてつかおうとしたのですが、競合の問題で没にしました。
 それでは、ごらんください。



2018/09/02 20:07 追加



2018/09/03 23:36 追加



 

にほんブログ村 イラストブログへにほんブログ村 イラストブログ らくがきへにほんブログ村 イラストブログ イラスト練習へにほんブログ村 観賞魚ブログ ビオトープへ
応援クリックしていただければ励みになります

ExcelVBA''@_昨日の続きListBoxでAA

 ★ ListBoxにAAを表示するTIPS ★ 
 ご訪問ありがとうございます。阿良々木(アラクリカエシキ)です。
 昨日は恥ずかしい動画をアップしてちょっと後悔してます。
 それでですね、FC2動画とYouTube
 タイトルは違いますが同じ動画なのに
 なぜこんなに再生数に違いが出るのか不思議です。
 FC2動画はとりあえすクリックされたらカウント
 YouTubeは最後まで再生されえないとカウントしないとか
 あるのでしょうか?
YouTubePLAY.jpg

FC2PLAY.jpg

 昨日のつづき? ListBoxにAAを表示するには…
 シートにAAをコピペし、名前をつけます。
 名前を付けなくてもできますが付けたほうが便利です。
 そして、下記のようなコードを書きます。

Private Sub CommandButton1_Click()
ListBox1.RowSource = "Sheet2!八九寺"
End Sub

Private Sub CommandButton2_Click()
ListBox1.RowSource = "Sheet2!動画AA"
End Sub
実行結果は↓なかんじです。

 

にほんブログ村 イラストブログへにほんブログ村 イラストブログ らくがきへにほんブログ村 イラストブログ イラスト練習へにほんブログ村 観賞魚ブログ ビオトープへ
応援クリックしていただければ励みになります

差込印刷:任意のデータを差込

 ★ 任意のデータだけ出力 ★ 
 ご訪問ありがとうございます。阿良々木(アラクリカエシキ)です。
 前回までのコードは1~10(開始~終了)を出力する形式でしたが。
 今回は任意のデータ(フラグを立てたもの)を出力できる物を作成しました。
 画像の差込を抜きにしても仕事等で役立つコードなので是非使ってみてください。
 コードは追記欄に載せています。
 前回の記事はコチラ
 それではまた(o・・o)/~
 

にほんブログ村 イラストブログへにほんブログ村 イラストブログ らくがきへにほんブログ村 イラストブログ イラスト練習へにほんブログ村 観賞魚ブログ ビオトープへ

web拍手 by FC2

続きを読む

イメージオブジェクトよりシェイプオブジェクトの方が軽い?

 ★ 差込印刷(PDF化)3 ★ 
 ご訪問ありがとうございます。阿良々木(アラクリカエシキ)です。
以前紹介した、エクセルで画像の差込印刷(PDF化)をするはイメージオブジェクトを使用していたのですが、シェイプオブジェクトを使用した方が処理が軽いようなので改めて紹介します。
 ただ、コードを比較しても解りづらいので動画をアップします。
 ※ファイルを上書きしてしまったため前のヴァージョンは録画してません。
 

コードは追記欄に掲載しています
 

にほんブログ村 イラストブログへにほんブログ村 イラストブログ らくがきへにほんブログ村 イラストブログ イラスト練習へにほんブログ村 観賞魚ブログ ビオトープへ

続きを読む

訪問者さま
カレンダー
08 | 2020/09 | 10
- - 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 - - -
プロフィール

arakurikaesiki

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

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

この人とブロともになる

最新コメント
リンク(敬称略)
らくがき
新着記事
季節の変わり目 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
すず Aug 03, 2020
記憶を辿って Aug 03, 2020
カテゴリ
アクセスランキング
[ジャンルランキング]
ブログ
1997位
アクセスランキングを見る>>

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

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

検索フォーム