http://www.autobiz.jp/

---

http://atclk.com/

---

http://hp.vector.co.jp/authors/VA006682/vbaref/vbaref4.htm

■疑問点
　シートの保護と解除

■解決策
・シートの保護
Excel2003
Excel.Application.ActiveSheet.Protect(Contents:=True, UserInterfaceOnly:=True, AllowFormattingCells:=True)

Excel2000
Excel.Application.ActiveSheet.Protect(DrawingObjects:=True, Contents:=True, Scenarios:=True)
・シートの解除
Excel.Application.ActiveSheet.Unprotect()

---

http://www.asahi-net.or.jp/~ZN3Y-NGI/YNxv202_3-3tbl.html

ActiveWorkbook.SaveAs FileFormatプロパティの定数と値

定数：値：内容
xlExcel5：39：Excel5.0/95ブック
xlExcel7：39：Excel5.0/95ブック
xlExcel9795：43：Excel97-2000および5.0/95ブック
xlWorkbookNormal：-4143：Excelブック

Excel.XlFileFormat.xlExcel9795

http://www2.moug.net/cgi-bin/technic.cgi?exvba+TI15010081

確認メッセージを非表示にする
Application.DisplayAlerts = False

---

■現在日付
年：Now.Year
月：Now.Month
日：Now.Day

年：Year(Now)
月：Month(Now)
日：DateAndTime.Day(Now)

■DateDiff関数
日数を求めるとき、時間まで考慮しないとVB6.0のときのような結果が得られない。
Dim wDate1 as Date
Dim wDate2 as Date
Dim wDays as Integer
wDays = DateDiff(DateInterval.Day, CDate(Format(wDate1, "yyyy/MM/dd 00:00:00")), CDate(Format(wDate2, "yyyy/MM/dd 00:00:00")))

---

Optional ByVal pData() As Byte = Nothing

---

' パラメータを指定して実行
Process.Start(実行EXEなど, パラメータ)

---

' 元のWaitカーソルを保持
Dim preCursor As Cursor = Cursor.Current

' カーソルを待機カーソルに変更
Cursor.Current = Cursors.WaitCursor

' 少し時間のかかる処理
System.Threading.Thread.Sleep(5000)

' カーソルを元に戻す
Cursor.Current = preCursor

---

Shell("notepad.exe", AppWinStyle.NormalFocus, True)

列挙値 説明
AppWinStyle.Hide ウィンドウはフォーカスを持ち、非表示にされます。
AppWinStyle.NormalFocus ウィンドウはフォーカスを持ち、最新のサイズと位置で表示されます。
AppWinStyle.MinimizedFocus ウィンドウはフォーカスを持ち、最小化表示されます。
AppWinStyle.MaximizedFocus ウィンドウはフォーカスを持ち、最大化表示されます。
AppWinStyle.NormalNoFocus ウィンドウは最後にウィンドウを閉じたときのサイズと位置に設定されます。現在アクティブなウィンドウが、フォーカスを保持し続けます。
AppWinStyle.MinimizedNoFocus ウィンドウは最小化表示されています。現在アクティブなウィンドウが、フォーカスを保持し続けます。

---

■略称名一覧
FORM:frm
BUTTON:btn
CHECKBOX:chb,ckb
FILE:fil
HIDDEN:hid
IMAGE:img
PASSWORD:pas,pws
RADIO:rdo
RESET:res
SUBMIT:sub
TEXT:txt
SELECT:sel
TABLE:tbl

---

http://www.bentley.co.jp/

---

http://www.hyuki.com/

JAVA
Perl
C言語
CGI
プログラマの心の健康

---

http://homepage1.nifty.com/rucio/main/main.htm



Private Declare Function NetScheduleJobAdd Lib "netapi32.dll" (ByVal Servername As String, Buffer As Any, JobID As Long) As Long

Private Type AT_INFO
JobTime As Long
DaysOfMonth As Long
DaysOfWeek As Byte
Flags As Byte
Dummy As Integer
Command As String
End Type

Private Function AddTask(TaskDate As Integer, TaskTime As String, TaskCommand As String) As Boolean

Dim JobInformation As AT_INFO
Dim Ret As Long
Dim JobID As Long

With JobInformation
.JobTime = (Hour(TaskTime) * 3600 + Minute(TaskTime) * 60) * 1000 '時刻
.DaysOfMonth = .DaysOfMonth Or 2 ^ (TaskDate - 1) '日付
.Command = StrConv(TaskCommand, vbUnicode) 'コマンド
End With

Ret = NetScheduleJobAdd("", JobInformation, JobID)
AddTask = Ret = 0

End Function

Private Sub Command1_Click()

Dim Ret As Long

Ret = AddTask(21, "13:20", "C:\Windows\Notepad.exe")
MsgBox IIf(Ret, "成功", "失敗") & "しました。"

End Sub

---

http://kokoro.kir.jp/index.html

■疑問点
Excelで曜日を表示したい。

■解決策
「セルの書式設定」→「表示形式」→［種類］に入力する。
「ａａａ」と入力すると、「日」と表示される。
「ａａａａ」と入力すると、「日曜日」と表示される。

---

http://www.ibusiness.jp/

---

ドキュメントなどを見る為のソフト（Viewer）の紹介です。
フリーのViewerが各会社でダウンロード できるようになっているので
そのリンクを集めて見ました。

Microsoft Excel Viewer 97
http://www.microsoft.com/downloads/details.aspx?FamilyID=4eb83149-91da-4110-8595-4a960d3e1c7c&DisplayLang=ja

Excel Viewer 2003
http://www.microsoft.com/downloads/details.aspx?FamilyID=c8378bf4-996c-4569-b547-75edbd03aaf0&DisplayLang=ja

Word Viewer 97
http://www.microsoft.com/downloads/details.aspx?FamilyID=9bbb9e60-e4f3-436d-a5a7-da0e5431e5c1&DisplayLang=ja

Word Viewer 2003
http://www.microsoft.com/downloads/details.aspx?FamilyID=95e24c87-8732-48d5-8689-ab826e7b8fdf&DisplayLang=ja

Visio Viewer 2002
http://www.microsoft.com/downloads/details.aspx?FamilyID=8fad9237-c0a7-4b80-a5df-46ce54dad2df&DisplayLang=ja

Visio Viewer 2003
http://www.microsoft.com/downloads/details.aspx?FamilyID=3fb3bd5c-fed1-46cf-bd53-da23635ab2df&DisplayLang=ja

PowerPoint Viewer 95
http://www.microsoft.com/downloads/details.aspx?FamilyID=20d0d555-0c94-4cf3-a3e3-ccc05f955c84&DisplayLang=ja

PowerPoint Viewer 2003
http://www.microsoft.com/downloads/details.aspx?FamilyID=428d5727-43ab-4f24-90b7-a94784af71a4&DisplayLang=ja

一太郎ビューア
https://www.ichitaro.com/viewer/download.html

OASYS Viewer
http://software.fujitsu.com/jp/oasys/DOWNLOAD/VIEWER/page4.html


■関連サイト
【Visio2000を使用して．．．】
http://www.hatena.ne.jp/1082010695

---

このブログは、仕事に必要なIT情報・製品情報・業界トレンドに関する情報などを紹介していきます。

どうぞ、末永く宜しくお願い申し上げます。

２００５年０５月１４日　itpro-blogger

---