久しぶりにVBA

ちょっと仕事で使う為に久しぶりにExcelVBAを触った。
簡易的なイメージビューアー的なものを作った。

Private Sub Worksheet_SelectionChange(ByVal Target As Range) '選択範囲を変更したときに実行
    MIN_ROW = 2
    If (Not Cells(Target.Row, Target.Column).Value = "") And Target.Row >= MIN_ROW And Target.Column = 3 Then
        Image1.Picture = LoadPicture(ThisWorkbook.Path + "\" + Cells(Target.Row, Target.Column).Value)
        Cells(1, 11).Value = Cells(Target.Row, Target.Column).Value
    End If
End Sub

ソースはただこれだけ、だけど。
3カラム目に対象画像ファイル名を入れて、Excelファイルと同一フォルダに入れておけばOK!
あと、Imageコントロールが必要。

徹夜明けでちょっと文章がおかしいかも・・・。

Dreamweaver勉強...ψ(。。)メモメモ...

ショートカットキー
  • 環境設定:Ctrl+U
  • 新規ドキュメントの作成:Ctrl+N
  • 保存:Ctrl+S
  • タグインスペクタ:F9
  • パネルを開く:F8
  • コピー:Ctrl+C
  • ペースト:Ctrl+V
  • 見出し1:Ctrl+1
  • 見出し2:Ctrl+2
  • タグの編集、折り返しタグ、HTMLの挿入:Ctrl+T
  • ブラウザでプレビュー(プライマリ):F12
  • ブラウザでプレビュー(セカンダリ):Ctrl+F12
  • アセットパネルを開く:F11
  • カット:Ctrl+X
  • 検索/置換:Ctrl+F
  • 更新:F5
  • ページプロパティ:Ctrl+J

天皇賞(春)

今日の天皇賞(春)の予想

トウカイトリック
アドマイヤジュピタ
アイポッパー
ホクトスルタン
アドマイヤモナーク
ドリームパスポート
ポップロック
アサクサキングス


てな感じです。
馬券購入は
単勝
馬連流し
◎軸1頭3連複流し
てな感じで勝負してみます。


ではでは。
今日の15:40を楽しみに仕事しま〜す。


まけた〜・・・。

玄箱での自宅サーバ設定終了

玄箱での自宅サーバ設定完了
外部からも一応参照出来るようになりました。

IPマスカレードの設定をして表示される事を確認しました。
ただ、内部からだとルータの設定画面が表示される為に確認できない・・・。

今からDreamweaverの勉強です。

Debian化終了!?

Fedoraをインストールするのが面倒だったのでとりあえず。
Debian化終了。
参考にした書籍は、以下のものです。
とても詳しく丁寧に説明してあってUnixがまったく知らない人でもこれさえあればインストールできるのではとおもった。

玄箱PROで遊ぼう!!

玄箱PROで遊ぼう!!



さぁ、これからこのおもちゃにサーバ立てて会社などからも遊べるようにしようと考えてま〜す。