ここに書き込むのは何年ぶりでしょう？　なんとか細々と生きていました（ｗ

 

　さて、今回はブログっぽいホームページをExcelマクロで作成してみたのでご紹介します。

　実物はここです ⇒ http://youkeyspace.com/

　　・「ROOM」ごとにシートを用意（「あれこれROOM」「紅茶ROOM」「映画ROOM」の3シート）

　　・各ROOM（シート）は表形式で入力(フィールドは「タイトル」「内容」「更新日」の3つででOK)

　　・各ROOM(シート)ごとに1クリックでHTMLファイルを作成できるし、

　　 全ページのHTMLファイルを1クリックで作成することもできる

　　・cssは別途用意

　HTMLがわかればとても簡単にできます。

　cssは別に用意するので、デザイン(色、ヘッダー部画像など)の変更は簡単です。

　各ページはマクロでテーブルを作成(<table>タグ)しているので、この形式の変更は

無理ですが、サイズはcssで変更可能です。

 

そのうち少しずつマクロをご紹介していけたらと思います。 

 

追伸：

[amazon.co.jp で買う]ボタンを表示させたくないのですが、方法がわかりませんでした。

 

 

久しぶりに覚書です。

 

あるExcelのマクロ(VBA)をつくったのですが、毎回新しいデータ(Excelのブック)が

送られてくるので、その都度マクロをコピー＆ペーストしていました。

でもこれは非効率。そこで、ひとつのマクロを複数のブックで共有する方法を調べ

ました。

 

■方法

　『個人用マクロブック』にマクロを保存します。

　個人用マクロブックの名前は『PERSONAL.XLS』でした。 

 

■個人用マクロブックの作り方

　[ツール]メニューの[マクロ]の[新しいマクロの記録]を選択して、表示したダイアログ

　の「マクロの保存先」に『個人用マクロブック』を指定します。

　その後[OK]ボタンをクリックしてマクロの記録を開始し、何もせずに記録を終了します。

 

　注意：

　[ツール]メニューの[マクロ]の[マクロ]を選択して表示する「マクロ」ダイアログでは

　『個人用マクロブック』は指定できません。

 

■個人用マクロブックにマクロを追加する

　『個人用マクロブック』は最初は非表示になっているので、[ウインドウ]メニューの

　[再表示]を選択して表示させます。

　その後、[ツール]メニューの[マクロ]の[マクロ]を選択して編集します。

 

 

 個人用マクロブックのシートに参照用の定数データを追加したのですが、

再び「表示しない」設定にしておかないと、Excelブックを開くたびに表示されて

わずらわしかったです(苦笑)

ちなみに、個人用マクロブックはこの↓フォルダにありました。

スタート時に読み込まれるファイルはここに置けばいいのかな？

 

 

 

ここ数ヶ月で身辺の状況が激変してしまいました。

これからはＶＢＡを触る機会が増えそうです。

また面白いマクロを作ったらご紹介します。

 

多くの人は、仕事でスケジュールを書くときに何を使っているのでしょう？

Microsoft Project とかかな？

わたしはラフスケッチはExcelにカレンダを書いてやっているのですが、

カレンダを手入力するのは面倒。そこでカレンダを挿入するマクロを

作ってみました。

 

年月を指定して、どこかセルを選択してから［カレンダ挿入］ボタンを

クリックすると、図のような1月分のカレンダを挿入します。

簡単なコード（VBA）でできます。うるう年などの難しい計算も必要

ありません。

 

お待たせしました。コードをご紹介します。

エラー処理とかしてないので、適当に追加してください。

コードが変でも怒らないでね。

年月を指定するところはリストにしてます。

 

－－－－－－－－－－

Private Sub cmdButton_Click()
    Dim strYear As String
    Dim strMon As String
    Dim week As Variant
    week = Array("Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat")
    Dim nFontColor As Integer
    Dim nCnt As Integer
    Dim cel As Range
    Dim nline_cnt As Integer

        
    '指定された年月
    strYear = Cells(2, 2)
    strMon = Cells(2, 4)
   
    '1～3行目には出力できない
    If 4 > ActiveCell.Row Then
        MsgBox "1行目から3行目までには出力できません。" & vbCrLf & _
               "出力する先頭のセルを選択後、ボタンをクリックしてください。", vbExclamation + vbOKOnly
        Exit Sub
    End If
   
   
    '月を出力
    Set cel = Cells(ActiveCell.Row, (ActiveCell.Column) + nCnt)
    cel = CStr(strMon)
    Set cel = Range(Cells(ActiveCell.Row, (ActiveCell.Column) + nCnt), Cells(ActiveCell.Row, (ActiveCell.Column) + nCnt + 6))
    cel.Interior.ColorIndex = 17
    cel.MergeCells = True
    cel.HorizontalAlignment = xlCenter

 

    '曜日を出力
    For nCnt = 0 To 6
        Set cel = Cells(ActiveCell.Row + 1, (ActiveCell.Column) + nCnt)
        cel = week(nCnt)
        cel.Interior.ColorIndex = 15
    Next
    
    '日付出力
    nline_cnt = 2
    For nCnt = 1 To 31
        '曜日を取得する
        On Error Resume Next
        Err = 0
        this_date = Weekday(strYear & "/" & strMon & "/" & CStr(nCnt))
        If Err <> 0 Then
            Exit Sub
        End If
  
        '曜日の色
        Select Case this_date
            Case 1: '日曜日
                nFontColor = 3
                nline_cnt = nline_cnt + 1
            Case 7: '土曜日
                nFontColor = 5
            Case Else
                nFontColor = 1
        End Select
  
        '日を出力する
        Set cel = Cells((ActiveCell.Row) + nline_cnt, (ActiveCell.Column) + this_date - 1)
        cel = nCnt
        cel.Font.ColorIndex = nFontColor

   Next
  
End Sub

 

－－－－－－－－－－

 

Webブラウザで表示している一覧のデータをCSV形式でファイルに

出力する機能があるのですが、どうもある一覧だけ先頭に改行コード

が入ります。一体これは・・・？

 

　インクルードしているPHPのファイルの最終行に改行コードが

　入っているのが原因のようです。次のような感じ。

　　　－－－－－－－－－－

　　　?>

　　　　　　　　←ここに改行がある

　

　改行コードを削除しました。これだけで直りました。

　　　

 

　結構繊細なものなのですね。

 

久しぶりの覚書です。

 

Webブラウザの［表示］→［ソース］メニューを選択したときに開くエディタを

変更する方法です。

 

レジストリの次の部分を書き換えます。

 

 

何気なく昨年書いたブログを見ていたら、書き忘れがある

ことに気づきました。

PHPの暗号がツール、結局『ionCube』を購入しました。

使い方がとてもわかりやすかったのと値段が決め手かな？

暗号化したものはWindowsでもLinuxでも問題なく動作

しました。

 

以下、覚書です。

■====================================================■
　ionCube PHP Encoder (ionCube Ltd.)
　　　http://www.ioncube.jp/
■====================================================■
【価　　格】
　　Professional Edition 　　　 62,800 円から
　　Cerberus Edition  　　　　　83,800 円から
【実行環境】
　　ionCube Loader が必要。(無償)
【メ　　モ】
　　日本ではアシアル株式会社がionCubeのパートナーに
　　なっており、日本語でのサポートをしてくれます。
　　http://www.asial.co.jp/products/ioncube/

 

そのほかには次のツールもありました。

■====================================================■
　Zend Encoder 3.5 日本語版 (ゼンド・ジャパン株式会社)
　　http://www.zend.co.jp/products/encoder/
■====================================================■
【価　　格】
　　プロダクト　　　　　　　　 400,000 円
　　年間保守アップグレード 　　 80,000 円
　　メジャーバージョンアップ(製品価格の50%)
【実行環境】
　　Zend Optimizer が必要。(無償)
【メ　　モ】
　　PHP のスクリプトエンジン Zend Engine の
　　開発メンバがZend社を創設しています。