[pear_error: message="Success" code=0 mode=return level=notice prefix="" info=""]
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
JUGEMテーマ:PC関連 本来はC++初心者入門編の〜10〜ですが、ちょっと流れが違いますので応用編としました。 今回もC++/CLIのプログラムとなります。 これまでの初心者入門を見てくれた人は、そろそろC++/CLIの入門書やホームページを読んでも理解できるくらいになっていると思います。 あとは、いろんなプログラムを作って遊んでください。 そのなかで、スキルアップが自然に進んでいきます。 その参考として、前に日本語プログラム「なでしこ」で作った動画形式をMP4に変換するプログラムを作ってみます。 (...
孤独なコンピュータ | 2016.05.26 Thu 09:19
JUGEMテーマ:PC関連 A1:A10の範囲内にアクティブセルがある時に実行した場合、警告のダイアログを表示します。 Sub Sample90() If Not Intersect(Range("A1:C10"), ActiveCell) Is Nothing Then MsgBox "この範囲内では実行出来ません", vbCritical End If End Sub
Office Labo | 2016.05.25 Wed 17:34
先日アップデート【あっぷでーと】でwindows10にアップデート(アップグレード)した件をエントリしたが、本日windows8.1に戻した(^^;)アップデートは2時間ほどだったがダウングレードは約15分(爆) 戻した理由はネットでも質問の山ができている「スリープからの復帰」問題。通常なら一定時間が過ぎ、その間操作がされないと自動的にスリープモードに移行するが、その復帰画面が出なくなる障害だ。 Windowsがスリープから復帰しない時の対処法まとめ:NAVERまとめ win10にしてから約2週間でこの現象が出現。だんだん時間が...
現代用語のクソ知識2016 @ 非 有吉弘行 | 2016.05.22 Sun 21:26
全1000件中 461 - 470 件表示 (47/100 ページ)