[pear_error: message="Success" code=0 mode=return level=notice prefix="" info=""]

JUGEMテーマ:PC関連 Dim newDb As ADOX.Catalog Dim fileNm As String Dim strSQL As String '- ファイルを作成する場所 fileNm = ThisWorkbook.Path & "¥DATA.acc.db" '- 作成したファイルに接続 Set newDb = New ADOX.Catalog newDb.Create "Provider=Microsoft.ACE.OLEDB.12.0;Dat...
我楽多 | 2016.06.13 Mon 18:42
前回の続きになります。 前のものは基本的な説明だったので、今回はちょっと飾ってみます。 今回の仕様書は 入力:動画ファイル 処理:FFMPEGを使って、 1.動画ファイルをMP4形式(h264,ACC)に変換。 2.音だけを取り出す。MP3形式に変換。 3.動画の一部分を取り出す。 4.入力・出力動画ファイルの再生および再生位置の取得。 出力:MP4形式の動画ファイルおよびMP3形式のサウンドファイル とりあえず、これだけあれば、簡単な編集ができると思います。 動画の結合も入れようかと思ったんですが、 操...
孤独なコンピュータ | 2016.06.13 Mon 10:14
JUGEMテーマ:PC関連 クエリーでRNDを使用する場合のお話です。 前提として、再起動させると、同じ値が振られてしまいます。 これを回避するには、もうひと手間必要ですが ここでは、それは割り切って別にイイヤ! という場合です。 クエリのフィールドにRND()と入力します。 ただし、これだけだと、全レコードに同じ値が返ってきてしまいます。 RND([フィールド名:整数型]) とするとランダムな値が振られます。 たとえば、オートナンバー型(インクリメント)のIDというフィールドを作成しておいて RND([I...
我楽多 | 2016.06.09 Thu 16:43
JUGEMテーマ:PC関連 第1 曜日の求め方 *月ごとの第一月曜日とかを求める式です。 考え方: 求めたい月の1日に、求めたい曜日との乖離分を加算して求める ?weekday関数を使用して、求めたい月の1日の曜日を取得します。 Weekday(date, [firstdayofweek]) 第2引数[firstdayofweek]に「2」を指定すると、週の開始が月曜日になります。 *月=1 、火=2 、水=3 、木=4、 金=5、土=6、日=7 求めたい月の1日の曜日は下記のようになります。 Weekday([当月1日], 2) [当月1...
我楽多 | 2016.06.08 Wed 18:57
JUGEMテーマ:PC関連 A1のセルにコメントを付けます。 Sub Sample92() Range("A1").AddComment "コメントです" End Sub
Office Labo | 2016.06.08 Wed 16:19
JUGEMテーマ:PC関連 ちょっと質問を受けたのでついでに Dateserial関数を使用した月末日の求め方です。 DateSerial ( year, month, day ) 今月末は、翌月1日の1日前なので、 ?まず、今月1日を求めて見ましょう。 Dateserial(year(date)),month(date()),1) ?翌月1日は、月の部分に+1します。 Dateserial(year(date)),month(date())+1,1) ?翌月1日の1日前なので、日の部分をー1します。 Dateserial(year(date)),month(date())+1,1-1) =Dateserial(year(date)),month(date()...
我楽多 | 2016.06.07 Tue 17:16
JUGEMテーマ:PC関連 API関数、「URLDownloadToFile」を使用します。 *https://support.microsoft.com/ja-jp/kb/244757 標準モジュールにAPIの宣言を記述します。 ---------------------------------------------------- Private Declare Function URLDownloadToFile Lib "urlmon" Alias _ "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal _ szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long --------------------------------------...
我楽多 | 2016.06.06 Mon 15:21
おはようございます。八王子市南大沢のデザイン事務所、グラッドワークスです。 多摩ニュータウン西端は曇りの朝です。関東甲信越地方も昨日から梅雨入りしたそうなので、しばらくはスッキリしない天気の日が増えそうですね。 「サーバ」はホームページの入っている「入れ物」 当たり前のことで恐縮ですが、普通、ホームページはパソコンの中にはありません。 どこにあるかというと、サーバの中。(場所は後述) 「サーバ」はホームページの入っている「入れ物」のようなものです。 一般的なホームページはウェブ制...
Simple Vision | 2016.06.06 Mon 07:14
JUGEMテーマ:PC関連 A1のセルにA、B、C、何れかの文字が含まれているかどうか判別し、含まれている場合は、ダイアログで表示します。 Sub Sample91() If Range("A1").Value Like "*[A-C]*" Then MsgBox "文字が含まれてます" End If End Sub
Office Labo | 2016.06.03 Fri 14:24
最近、自宅PC用にトラックボールを購入しましたので、率直に感想を書いていきたいと思います。 結論から言うと、「これ、慣れないときついなぁ」ということ。 そもそもトラックボールを買おうと思ったのは、PCを使った後の腕の疲れを少しでも減らせないかと思ったため。いろいろ見て回ると、どうもトラックボールなるものであれば腕を動かさなくてすむため、だいぶ楽らしいということが分かってきました。 そこで、最近自宅作業も多いし、今のうちに買っておくかということになったわけです。 購入したのはOFFで3000円台後半の...
虚空-D.H.DZD | 2016.05.26 Thu 14:40
全1000件中 481 - 490 件表示 (49/100 ページ)