FC2ブログ

スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

掲示板つくりました(^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化)をするはイメージオブジェクトを使用していたのですが、シェイプオブジェクトを使用した方が処理が軽いようなので改めて紹介します。
 ただ、コードを比較しても解りづらいので動画をアップします。
 ※ファイルを上書きしてしまったため前のヴァージョンは録画してません。
 

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

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

続きを読む

画像の差し込み印刷(エクセル)其のニ

 ★ 今回はPDFで出力するように変更 ★ 
 どうもこんばんわ阿良々木(アラクリカエシキ)です。
 このまえ掲載したエクセルの差し込み印刷の記事では開始番号と終了番号を指定して印刷しましたが、職場で使っているものは一端PDFで出力しています。なので、そのサンプルも紹介してみます。
 エクセルファイルと同じ場所に「PDF」と言うフォルダを作成し。コードを前回のものから下記のように変更します。
 PDF化は「マクロの記録」で普通にPDFで保存する作業を記録し、「filename:=」の部分を書き換えれば思ったより簡単にできるので皆さんも試してみてください。
'標準モジュール
Option Explicit
'-----------------------------------------------------------------------------
Sub LP()
Dim picst As String
Sheets("TEMP").Image1.Picture = LoadPicture("") 'img初期化
picst = ThisWorkbook.Path & "\PIC\" & Right("00" & _
Sheets("TEMP").Range("B1"), 2) & ".jpg"
If Dir(picst) = "" Then
Sheets("TEMP").Image1.Picture = LoadPicture("")
Else
Sheets("TEMP").Image1.Picture = LoadPicture(picst)
End If
End Sub
'------------------------------------------------------------------------------
Sub toPDF()
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ThisWorkbook.Path & "\PDF\" & Right("00" & _
Sheets("TEMP").Range("B1"), 2) & ".PDF", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False
End Sub
'シートモジュール
'------------------------------------------------------------------------------
Option Explicit
'------------------------------------------------------------------------------
Private Sub CommandButton1_Click()
Dim bangou, a, n As Long
Dim picst As String
a = Range("F1").Value '開始番号
n = Range("H1").Value '
For bangou = a To n
DoEvents
Range("B1").Value = bangou
Call LP  ’←画像を切り替える
DoEvents
Call toPDF ' ←PDFで出力する。
DoEvents
'ActiveWindow.SelectedSheets.PrintOut ’今回はコメントアウト
Next bangou
End Sub
'------------------------------------------------------------------------------
ブログランキング・にほんブログ村へ
にほんブログ村
FC2カウンター
阿良々木''@_掲示板 NEW
入口
RSSリンクの表示
プロフィール

arakurikaesiki

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

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

この人とブロともになる

最新コメント
リンク
らくがき
新着記事
トップページ Jan 01, 2030
PLUS COFFEE Oct 10, 2018
アキネトン追加 Sep 27, 2018
操作性.… Sep 23, 2018
まわりに危機感がないと… Sep 19, 2018
異世界魔王と召喚少女の奴隷魔術 四月は君の嘘 Sep 18, 2018
その一言で Sep 13, 2018
住所と名前を書いてハンコを押す Sep 12, 2018
残高が… Sep 12, 2018
リクは基本無しでお願いします(笑) Sep 10, 2018
カテゴリ
カレンダー
10 | 2018/11 | 12
- - - - 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 -
アクセスランキング
[ジャンルランキング]
ブログ
6727位
アクセスランキングを見る>>

[サブジャンルランキング]
イラストブログ
401位
アクセスランキングを見る>>
にほんブログ村(ビオトープ)
月別アーカイブ
人気ブログランキング
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。