例：日本市場の立会時間 IsJikandesuyo = False If 9 <= Hour(Now) And Hour(Now) <= 15 Then If 11 = Hour(Now) Then If Minute(Now) <= 30 Then IsJikandesuyo = True End If ElseIf 12 = Hour(Now) Then If 30 <= Minute(Now) Then IsJikandesuyo = True …

フォームのコード Private Sub CommandButton_No_Click() UserForm1.Tag = vbCancel UserForm1.Hide End Sub Private Sub CommandButton_Yes_Click() UserForm1.Tag = vbOK UserForm1.Hide End Sub Private Sub UserForm_Initialize() UserForm1.Tag = vbCan…

定数 値 選択されたボタン vbOK 1 [OK] vbCancel 2 [キャンセル] vbAbort 3 [中止] vbRetry 4 [再試行] vbIgnore 5 [無視] vbYes 6 [はい] vbNo 7 [いいえ] ネタ元 http://homepage1.nifty.com/rucio/main/technique/MsgBox.htm

ただ探すだけならFind()を使ったほうがいいけれど、複数のパターンを同一視し、２個以上あるか調べるという処理のときはループで回したほうが楽。 '見つからなかったらNothingで返す 'シート内に複数同じ項目があったらエラー。Cells(65536, 256)で返す '大…

Excel2007 1,048,576 行 16,384 列 Excel2000..Excel2003 65,536 行 256 列 ネタ元 http://www.excel.studio-kazu.jp/tips/0016/

A=1 M=13 みたいな '番号から列アルファベットを取得する ' '引数 aNumber 数字 '戻り値 対応する番号、失敗時は"" Public Function ConvertNumberToAlphabet(ByVal aNumber As String) As String If Not IsNumeric(aNumber) Then ConvertNumberToAlphabet =…

失敗は終わりではない。それを追求していくことによって、はじめて失敗に価値が出てくる。失敗は諦めたときに失敗になるのだ。 土光 敏夫(元経団連会長)

Findを使ったらFindNextで次々と検索できる。以前見つかったセルと同じセルが見つかったりしないかだけはチェック必要。 Sub Sample6() Dim FoundCell As Range, FirstCell As Range, Target As Range Set FoundCell = Cells.Find(What:="田中") If FoundCel…

忍者AdMaxというサービスを使います。同様のサービスにkauliなどもありますので、お好きなものを用いればよいでしょう。ネタ元 http://blog2.k05.biz/2011/12/google.html

たまにキャッシュが残ってるおかげで処理がおかしくなることがあるのを防ぐ 'DeleteUrlCacheEntryを使用する場合のお約束 Declare Function DeleteUrlCacheEntry Lib "wininet" _ Alias "DeleteUrlCacheEntryA" (ByVal lpszUrlName As String) As Long ・・…

はてダからはてブロへの引越し顛末記 http://www.narinarissu.net/entry/2012/11/05/224616 はてなブログの独自ドメインをムームードメインで設定する http://works.uedayworks.com/ 独自ドメインは設定したら1日待つぐらいの気持ちでやるといいですよ。 ※追…

livedoorだと流石に被ブックマークとかまで引っ越せなかったのだけど、はてなブログだと全てが引っ越せると知ったので、再度戻って来ました。今後とも宜しく。