全4件 (4件中 1-4件目)
1
AP-1のマルチ巻き取り機を使ってみましたがそのままではマルチが内側や外側に巻かれてしまうのでガイドを作ってみました。これだとうまく巻き取れます。動画←ここをクリック
2011年06月16日
コメント(0)
マクロで一覧から領収書を差し込み印刷してみました。↓の記事に関連します。領収書差し込み印刷←ダウンロードはここをクリック
2011年06月15日
コメント(0)
印刷範囲を最終行から設定して改ページを54行毎に行うマクロです。Sub 改ページ()Sheets("領収書").Selectgyou = Cells(Rows.Count, 11).End(xlUp).Row ’最終行を求めるActiveSheet.ResetAllPageBreaks ’改ページのリセットi = 55j = 1gyou = gyou + 1 ’最終行を設定k = gyou / 54 ’ページ数を求めるpara = "$A$1:$O$" & gyouActiveSheet.PageSetup.PrintArea = para ’印刷範囲の設定Do Until j > kSet ActiveSheet.HPageBreaks(j).Location = Cells(i, 1)'改ページの追加i = i + 54j = j + 1LoopRange("a1").SelectEnd Sub
2011年06月15日
コメント(0)
今年の収穫中(5月15日)に8号地でデジカメを落としてしまった。6月5日マルチの裾を剥いでいる時発見しました。何度も大雨にあい台風にもあったので液晶画面が水に浸かったみたいで濡れていました。しばらく冷蔵庫に入れて乾燥させることにしました。充電池の電池はなくなっていたので今日、恐る恐る充電池を入れ替えてスイッチを入れてみました。何と 動くではありませんか!レンズが汚れていたので綿棒にアルコールを付けて掃除しました。携帯を水に落とした時、すぐに電池を外して冷蔵庫で乾燥させると結構復活します。
2011年06月09日
コメント(1)
全4件 (4件中 1-4件目)
1


