カウンタ


プロフィール

dz02572i

Author:dz02572i
「あめた」です。大ケガをして拾われたニャン。散歩が大好きニャン。ご主人様はパソオタニャン。

dz02572i@yahoo.co.jp
サイトマップ
記事一覧
[セル]

080819_01.png

・セルの選択
 A1を選択
 C15を選択
 変数でC15を選択
 C列の最終行を選択
 C列の最終行を選択 (変数)
 行を選択
 複数行の選択
 すべて選択
 四隅の選択
 四隅の選択 (変数) ・・・など


・セルを移動して左上に表示
・詳細を別セルに表示

・アクティブセルのアドレスを調べる
・アクティブセルの列番号を英文字に変換する


[セルに値を入力]
080827_03.png


・A1セルに「テスト」と入力
・A1セルに今日の日付を入力
・A1セルに書式を設定して日付を入力


・セル内で改行して値(文字)を入れる / chr(10)


・[trim] セルの前後空白を除去する



[セル・テキストボックスの色の指定方法]

080912_02.png

・セル・テキストボックスの色の指定方法

---> 色見本 / 色一覧 (RGB)


[セルの書式設定]
080828_01.png
・数値を3桁にそろえる / セルの右クリックで
・数値を3桁にそろえる / マクロ




[セルの移動で色を変える]
080821_04.png

・セルの移動で色を変える
 セルの移動で、色を変える / その1
 セルの移動で、色を変える / その2 *選択しているセルだけ  
 セルの移動で、色を変える / その3 * 行全体 ・・・など



[いろいろなセルの削除方法]
080822_02.png

・セルの削除
 セルの値のみを削除
 セルの値・書式すべてを削除
 A1セルの削除  その1 / 選択して削除
 A1セルの削除  その2 / 選択せずに削除
 A2からC1の削除 その1 / 選択して削除
 A2からC1の削除 その2 / 選択せずに削除
 A2からC1の削除 その3 / 変数
 A2からC列の最終行の削除 ・・・など


 ・行の削除・挿入


[表示領域(スクロールエリア)を設定]
080825.png

・スクロールエリアの設定
・スクロールエリアの解除



[印刷]

080822.png

・印刷範囲の指定
 四隅を印刷範囲に指定
 四隅を印刷範囲に指定 (変数1)
 四隅を印刷範囲に指定 (変数2) 最終行が不確定の場合 ・・・など



・印刷プレビュー
・設定をしてプレビューする



[シート・ブック]

080829_01.png

・シート名 / ブック名を取得する
・エクセルの絶対パスを取得する
・シート名をリストボックス・コンボボックスに表示
・フォームからシートを削除する
・フォームからシートを新しく追加する
・フォームからシート名を変更する
・複数のシートを選択する (作業グループ)
・「シート間の参照」を維持したままコピーする
・ブックの自動保存を無効にする
・ウィンドウを最大化・最小化・通常状態にする
・ブックのパスを取得する / ディレクトリ・フォルダとファイル名
・フォルダを作成する (ブックと同じ階層にディレクトリを作成)
・子フォルダを作成する (複数)
・バックアップファイルを作成する / コピーを作成
・ファイル名と拡張子を分離する ( .xls )



[オートシェイプ]
vba_1008.png

・オートシェイプの名前を取得する(オブジェクト名/コントロール名)
・クリックしたオートシェイプの名前を取得する(オブジェクト名/コントロール名)
・オートシェイプを選択状態にする (オブジェクト名/コントロール名)
・オートシェイプの型を調べる (オブジェクト名/コントロール名/タイプ)
・オートシェイプを半透明にする
・指定したオートシェイプを削除する
・すべてのコントロールを削除する (シート上)
・最後に追加されたオブジェクト名を調べる
・最後に追加されたオブジェクト選択する
・指定したオブジェクトの型(タイプ)だけを選択する
・指定したオブジェクトの型だけにマクロを登録



[テキストボックス]

080901_01.png

・テキストボックスの値をループで削除 その1
・テキストボックスの値をループで削除 その2

・テキストボックスのフォント色・背景色をループ処理で変更
・テキストボックスに今日の日付を表示
・テキストボックスの前後空白を取り除く
・テキストボックスで「キーコード」を取得する
・Escキーでテキストボックスの値を消去・削除
・テキストボックスで改行できるようにする


[チェックボックス]

081127_01.png

・チェックボックスを全部 True / Falseにする (ループ処理)



[月の最終日を取得]

080903.png

・月の最終日を取得


[今週・先週・来週の期間を取得]

080904_01b.png

・今週の期間を取得
・先週の期間を取得
・来週の期間を取得




[リストボックス・コンボボックス]

080906_01.png


・リストボックス・コンボボックスの基本用語
・ListIndex : 現在選択されている行番号
・ListCount :リストの数
・ListRows  :コンボ ボックスのリストボックスのに表示される最大行数
・ColumnCount :列の数
・ColumnWidths :列の幅
・BoundColumn
・Column

・リストボックス,コンボボックスに1~10の値を入れる
・コンボボックスに1,10,20・・・100の値を入れる


・コンボボックスに今週の日付を追加する
・コンボボックスに先週の日付を追加する
・コンボボックスに来週の日付を追加する

・コンボボックスに今月の日付を追加する
・コンボボックスに先月の日付を追加する
・コンボボックスに来月の日付を追加する

080917_02.png
・コンボボックスの値をテキストボックスに表示
・複数列のコンボボックスの値をテキストボックスに表示

・コンボボックスの値をシートに戻す



[メッセージボックス / インプットボックス]

080916.png
・メッセージボックスで改行する


080919_01.png
・インプットボックスで分岐する


[関数]
080921_01.png
・REPT関数でグラフを作る

080929.png
・文字列の置換 Replace / 「●」 を「◎」に置換する
・文字列の置換 Replace / 「.」を「。」に置換する


081007.png

・小文字を大文字に変換する / StrConv
・大文字を小文字に変換する / StrConv
・半角を全角に変換する / StrConv
・全角を半角に変換する / StrConv
・いろいろな文字列の変換(半角・全角・フリガナ・ひらがな・カタカナ) / StrConv
・郵便番号をハイフンで分割する / 文字列分割 Split
・前後の空白を除去して隣のセルに転記 / trim
・前後・間の空白除去して隣のセルに転記 / (trim) (replace)
・前後・間の空白除去する、さらに半角に変換
・特定の文字列で分割して、隣のセルに表示
--->ここでは「県」で分割しています。
・「名字(苗字・姓)」と「名前」で別々のセルに分割する
--->空白で分割


[フォーム]

081026.png

・フォームを非表示にする
・5秒間フォームを非表示にする
・指定した時間でカウントダウンする
・フォームをシートの左上に表示
・フォームを解像度に応じて最大化する
・フォームのテキストボックスに値を入れて起動する



ランキング



検索

サイト内のVBAコードを検索できます。


Google
WWW を検索 VBA を検索

 [2008/09/29]  Update / by dz02572i


No.[38] 文字列の置換 Replace / 「●」 を「◎」に置換する




 ■■■■■■■■ Page Navi ■■■■■■■■


ブログトップへ戻る

カテゴリ別に表示


サンプルファイル一覧


 ■■■■■■■■ 記 事 No.[38] Entry Start ■■■■■■■■

<--- 一覧へ戻る




[文字列の置換 Replace / 「●」 を「◎」に置換する]

080929.png


文字列を置換するには、Replaceを使います。全角空白を半角空白に置換したり、半角「,」を全角「,」に置換することができます。 文字列を整えるときに便利です。




Private Sub CommandButton1_Click()

'========================
'「●」を「◎」に置換する
'========================


Dim myStr As String
myStr = TextBox1.Text

TextBox2.Text = Replace(myStr, "●", "◎")



End Sub






































サーバーの空き箱に入ってるニャン。甘えん坊ニャン。拍手はちょっとだけすきニャン。
_ameta_a.jpg


[U] 文字列操作 | 【2008-09-29(Mon) 16:44:39】 | Trackback(-) | Comments(-)
編集

 [2008/09/26]  Update / by dz02572i


No.[37] アクティブセルの列番号を英文字に変換する




 ■■■■■■■■ Page Navi ■■■■■■■■


ブログトップへ戻る

カテゴリ別に表示


サンプルファイル一覧


 ■■■■■■■■ 記 事 No.[37] Entry Start ■■■■■■■■

<--- 一覧へ戻る




[アクティブセルの列番号を英文字に変換する]

080926.png

アクティブセルの列番号は、「MsgBox ActiveCell.Column」で表示できます。・・・が、列番号は「A列 ---> 1」、「B列 ---> 2」、「3,4,5,6・・・」と数字で表示されるので、何列かを知りたいときに少し考えなければなりません。マイクロソフトのホームページに「列番号を英文字に変換する方法」が記載されていましたので、一部変更して紹介します。 詳細は下記URLをご覧になって下さい。

[Excel で列番号を英文字に変換する方法 / マイクロソフト]
http://support.microsoft.com/kb/833402/ja





Private Sub ClmnConvertToLetter()

Dim iCol As Integer
Dim iAlpha As Integer
Dim iRemainder As Integer
Dim ConvertToLetter As String

iCol = ActiveCell.Column 'アクティブセルの列番号

iAlpha = Int((iCol - 1) / 26)
iRemainder = iCol - (iAlpha * 26)

If iAlpha > 0 Then
 ConvertToLetter = Chr(iAlpha + 64)
End If

If iRemainder > 0 Then
 ConvertToLetter = ConvertToLetter & Chr(iRemainder + 64)
End If



MsgBox ActiveCell.Column
MsgBox ConvertToLetter



End Sub






























サーバーの空き箱に入ってるニャン。甘えん坊ニャン。拍手はちょっとだけすきニャン。
_ameta_a.jpg


[A] 行・列 | 【2008-09-26(Fri) 15:00:15】 | Trackback(-) | Comments(-)
編集

 [2008/09/25]  Update / by dz02572i


No.[36] アクティブセルのアドレスを調べる




 ■■■■■■■■ Page Navi ■■■■■■■■


ブログトップへ戻る

カテゴリ別に表示


サンプルファイル一覧


 ■■■■■■■■ 記 事 No.[36] Entry Start ■■■■■■■■

<--- 一覧へ戻る




[アクティブセルのアドレスを調べる]

080925_01.png
080925_02.png

*シート上にコマンドボタンを作成して、下のコードを貼り付けて下さい。




Private Sub CommandButton1_Click()


MsgBox "アクティブセルのアドレス ---> " & ActiveCell.Address

MsgBox "行番号 ---> " & ActiveCell.Row & Chr(13) & _
"列番号 ---> " & ActiveCell.Column



End Sub






























サーバーの空き箱に入ってるニャン。甘えん坊ニャン。拍手はちょっとだけすきニャン。
_ameta_a.jpg


[A] セル | 【2008-09-25(Thu) 09:37:10】 | Trackback(-) | Comments(-)
編集

 [2008/09/23]  Update / by dz02572i


No.[35] テキストボックスの前後空白を取り除く




 ■■■■■■■■ Page Navi ■■■■■■■■


ブログトップへ戻る

カテゴリ別に表示


サンプルファイル一覧


 ■■■■■■■■ 記 事 No.[35] Entry Start ■■■■■■■■

<--- 一覧へ戻る




[テキストボックスの前後空白を取り除く]

テキストの前後空白を取り除く処理です。 文字列の前後に「空白」があることはあまりよくありません。 そこで「Trim」関数を使って空白を除去します。 データを入力する場合にはtrimすることをおすすめします。

080923.png




Private Sub CommandButton1_Click()


'================================
'TextBox1の前後の空白を取り除いて
'TextBox2に表示する
'================================

TextBox2.Text = Trim(TextBox1.Text)

End Sub






























サーバーの空き箱に入ってるニャン。甘えん坊ニャン。拍手はちょっとだけすきニャン。
_ameta_a.jpg


[F] テキストボックス | 【2008-09-23(Tue) 07:09:16】 | Trackback(-) | Comments(-)
編集

 [2008/09/21]  Update / by dz02572i


No.[34] REPT関数でグラフを作る




 ■■■■■■■■ Page Navi ■■■■■■■■


ブログトップへ戻る

カテゴリ別に表示


サンプルファイル一覧


 ■■■■■■■■ 記 事 No.[34] Entry Start ■■■■■■■■

<--- 一覧へ戻る




[REPT関数でグラフを作る]

080921_01.png

* 今回はVBAではなく、関数です。 REPT関数は「文字列を指定された回数だけ」繰り返して表示します。 これを利用して数値をグラフ風に表示します。 私がよく使う文字列は「|」「■」です。 数値の桁数が多い場合は、「繰り返し回数/10」や「繰り返し回数/100」といった感じにするといいと思います。

=REPT("|",A9)
=REPT("|",A9/10)
=REPT("|",A9/100)

[ REPT(文字列,繰り返し回数) ]
文字列 繰り返す文字列を指定します。
繰り返し回数 文字列を繰り返す回数を、正の数値で指定します。

















サーバーの空き箱に入ってるニャン。甘えん坊ニャン。拍手はちょっとだけすきニャン。
_ameta_a.jpg


[V] 関数 | 【2008-09-21(Sun) 10:48:32】 | Trackback(-) | Comments(-)
編集

 [2008/09/19]  Update / by dz02572i


No.[33] インプットボックスで分岐処理をする




 ■■■■■■■■ Page Navi ■■■■■■■■


ブログトップへ戻る

カテゴリ別に表示


サンプルファイル一覧


 ■■■■■■■■ 記 事 No.[33] Entry Start ■■■■■■■■

<--- 一覧へ戻る




[インプットボックスで分岐する]

080919_01.png

*インプットボックスの入力内容で処理を分岐させるコードです。 「シートの保護・解除」、「確認が必要な処理」に数字を入力させる・・・といった使い方ができると思います。 ワンクリックでは不安な場合にワンクッションおけます。





Private Sub myInput()

'=====================
' インプットボックス
'=====================


Dim myInput
Dim myMsg As String

myMsg = "0000 ---> ロック解除" & Chr(13) & "1111 ---> ロック" & Chr(13) & "2222 ---> 不要データ削除"

myInput = InputBox(myMsg, "設定/解除")


Select Case myInput

  Case "0000"
  MsgBox "ロックを解除しました。"

  Case "1111"
  MsgBox "ロックしました。"

  Case "2222"
  MsgBox "不要データを削除しました。"

  Case Else
  MsgBox "正しい番号を入力してください。"

End Select


End Sub










































サーバーの空き箱に入ってるニャン。甘えん坊ニャン。拍手はちょっとだけすきニャン。
_ameta_a.jpg


[F] メッセージボックス・インプットボックス | 【2008-09-19(Fri) 07:14:30】 | Trackback(-) | Comments(-)
編集

 [2008/09/18]  Update / by dz02572i


No.[32] コンボボックスの値をシートに戻す




 ■■■■■■■■ Page Navi ■■■■■■■■


ブログトップへ戻る

カテゴリ別に表示


サンプルファイル一覧


 ■■■■■■■■ 記 事 No.[32] Entry Start ■■■■■■■■

<--- 一覧へ戻る




[コンボボックスの値をシートに戻す]

080918.png

シートからコンボボックスに読み込んだ値をコンボボックスで修正し、シートに戻す方法です。コツはフォームの読み込み時に各データの行番号をコンボボックスに格納しておくことです。 ここではコンボボックスの三列目に行番号を保存しています。(表示はしていません)
行番号を元に、フォームで修正したデータをシートに戻します。


---> サンプルファイルはこちらから





Private Sub ComboBox1_Change()

'==========================
' 「VLookup」でデータ取得
'==========================

If IsError(Application.VLookup(ComboBox1.Text, Range("A2:B65536"), 2, False)) Then

TextBox1.Text = ""

Else
TextBox1.Text = Application.VLookup(ComboBox1.Text, Range("A2:B65536"), 2, False)

End If




'==========================
' 「ListIndex」で取得
'==========================

Dim myIndex

myIndex = ComboBox1.ListIndex

If myIndex >= 0 Then

TextBox2.Text = ComboBox1.List(myIndex, 1)
Label6.Caption = ComboBox1.List(myIndex, 2) '行番号を取得


Else

TextBox2.Text = ""
Label6.Caption = ""

End If



End Sub





Private Sub CommandButton1_Click()

Dim myRow As Long
Dim myNum As String
Dim myIndex
myIndex = ComboBox1.ListIndex





If myIndex >= 0 Then

MsgBox "シートに保存します。"

myRow = Label6.Caption
Cells(myRow, "B") = TextBox1.Text

myNum = ComboBox1.Text
Call cmbAdd 'コンボボックスを再読込
ComboBox1.Text = myNum

Else

MsgBox "IDを選択してください。"

End If


End Sub




Private Sub CommandButton2_Click()

Dim myRow As Long
Dim myNum As String
Dim myIndex
myIndex = ComboBox1.ListIndex



If myIndex >= 0 Then

MsgBox "シートに保存します。"

myRow = Label6.Caption
Cells(myRow, "B") = TextBox2.Text

myNum = ComboBox1.Text
Call cmbAdd 'コンボボックスを再読込
ComboBox1.Text = myNum

Else

MsgBox "IDを選択してください。"

End If


End Sub




Private Sub UserForm_Initialize()

Call cmbAdd 'コンボボックスにリストを追加

End Sub




Private Sub cmbAdd()

'ループ処理でコンボボックスに追加

Dim lstRow2 As Long
Dim i As Long '行番号
Dim q As Long 'リストボックスの行番号

ComboBox1.Clear 'リストボックスの値を削除しておく。
ComboBox1.ColumnCount = 2 '2列表示
ComboBox1.ColumnWidths = "25 pt;40 pt" '表示する列の幅


'==============================

lstRow2 = Cells(65536, "A").End(xlUp).Row '最終行の取得
q = 0 'リストボックスの行番号

For i = 2 To lstRow2 '2行目から最終行までリストに追加する

With ComboBox1
.AddItem
.List(q, 0) = Cells(i, "A").Value '1列目
.List(q, 1) = Cells(i, "B").Value '2列目
.List(q, 2) = i '★★3列目 / シートの行番号 row 表示はしない

End With

q = q + 1 'リストボックスの行番号


Next


'==============================

End Sub






























サーバーの空き箱に入ってるニャン。甘えん坊ニャン。拍手はちょっとだけすきニャン。
_ameta_a.jpg


[F] リストボックス・コンボボックス | 【2008-09-18(Thu) 06:04:02】 | Trackback(-) | Comments(-)
編集

 [2008/09/17]  Update / by dz02572i


No.[31] 複数列のコンボボックスの値をテキストボックスへ




 ■■■■■■■■ Page Navi ■■■■■■■■


ブログトップへ戻る

カテゴリ別に表示


サンプルファイル一覧


 ■■■■■■■■ 記 事 No.[31] Entry Start ■■■■■■■■

<--- 一覧へ戻る




[複数列のコンボボックスの値をテキストボックスへ]

080917_02.png

*複数列に表示されているコンボボックスの値をテキストボックスへ転記します。 ここで紹介する方法は2つ。 一つはVLookupを使う もう一つはコンボボックスのリストインデックスを使う方法です。 結果は同じですが、アプローチが違います。 どちらを使うかは好みかと。

 ---> サンプルファイルはこちらから。





Private Sub ComboBox1_Change()

'==========================
' 「VLookup」でデータ取得
'==========================

If IsError(Application.VLookup(ComboBox1.Text, Range("A2:B65536"), 2, False)) Then

TextBox1.Text = ""
Else
TextBox1.Text = Application.VLookup(ComboBox1.Text, Range("A2:B65536"), 2, False)
End If




'==========================
' 「ListIndex」で取得
'==========================

Dim myIndex

myIndex = ComboBox1.ListIndex

If myIndex >= 0 Then

TextBox2.Text = ComboBox1.List(myIndex, 1)

Else

TextBox2.Text = ""

End If



End Sub





Private Sub UserForm_Initialize()


'ループ処理でリストボックスに追加

Dim lstRow2 As Long
Dim i As Long '行番号
Dim q As Long 'リストボックスの行番号

ComboBox1.Clear 'リストボックスの値を削除しておく。
ComboBox1.ColumnCount = 2 '2列表示
ComboBox1.ColumnWidths = "25 pt;40 pt" '表示する列の幅


'================================================================

lstRow2 = Cells(65536, "A").End(xlUp).Row '最終行の取得
q = 0 'リストボックスの行番号

For i = 2 To lstRow2 '2行目から最終行までリストに追加する

With ComboBox1
.AddItem
.List(q, 0) = Cells(i, "A").Value '1列目
.List(q, 1) = Cells(i, "B").Value '2列目
'.List(q, 2) = Cells(i, "D").Value '3列目

End With

q = q + 1 'リストボックスの行番号


Next


'================================================================


End Sub






























サーバーの空き箱に入ってるニャン。甘えん坊ニャン。拍手はちょっとだけすきニャン。
_ameta_a.jpg


[F] リストボックス・コンボボックス | 【2008-09-17(Wed) 02:15:33】 | Trackback(-) | Comments(-)
編集

 [2008/09/16]  Update / by dz02572i


No.[30] メッセージボックスで改行する




 ■■■■■■■■ Page Navi ■■■■■■■■


ブログトップへ戻る

カテゴリ別に表示


サンプルファイル一覧


 ■■■■■■■■ 記 事 No.[30] Entry Start ■■■■■■■■

<--- 一覧へ戻る




[メッセージボックスで改行する]

080916.png

メッセージボックスで改行するにはいくつかの方法があります。
・vbCrLf
・Chr(10)
・Chr(13)


上のどれかを 「&」でつなげてメッセージを出します。




Sub msgVbCrLf()

'==============================
'メッセージボックスで改行する
'==============================
'vbCrLf

MsgBox "メッセージ" & vbCrLf & "---> vbCrLfで改行できます。"


End Sub




Sub msgChr10()

'==============================
'メッセージボックスで改行する
'==============================
'chr(10)

MsgBox "メッセージ" & Chr(10) & "---> chr(10)で改行できます。"


End Sub




Sub msgChr13()

'==============================
'メッセージボックスで改行する
'==============================
'chr(13)

MsgBox "メッセージ" & Chr(13) & "---> chr(13)で改行できます。"


End Sub






























サーバーの空き箱に入ってるニャン。甘えん坊ニャン。拍手はちょっとだけすきニャン。
_ameta_a.jpg


[F] メッセージボックス・インプットボックス | 【2008-09-16(Tue) 03:44:01】 | Trackback(-) | Comments(-)
編集

 [2008/09/15]  Update / by dz02572i


No.[29] コンボボックスの値をテキストボックスに表示




 ■■■■■■■■ Page Navi ■■■■■■■■


ブログトップへ戻る

カテゴリ別に表示


サンプルファイル一覧


 ■■■■■■■■ 記 事 No.[29] Entry Start ■■■■■■■■

<--- 一覧へ戻る




[コンボボックスの値をテキストボックスに表示]

080915_01.png

コンボボックスの値をテキストボックスに表示します。「ComboBox1」「TextBox1」を準備してください。「ComboBox1_Change」を利用して、テキストボックスに値を表示します。 




Private Sub ComboBox1_Change()

 '==========================================
 'コンボボックスの値をテキストボックスに表示
 '==========================================

 TextBox1.Text = ComboBox1.Text

End Sub




































サーバーの空き箱に入ってるニャン。甘えん坊ニャン。拍手はちょっとだけすきニャン。
_ameta_a.jpg


[F] リストボックス・コンボボックス | 【2008-09-15(Mon) 06:28:55】 | Trackback(-) | Comments(-)
編集

 [2008/09/13]  Update / by dz02572i


No.[28] テキストボックスに今日の日付を表示




 ■■■■■■■■ Page Navi ■■■■■■■■


ブログトップへ戻る

カテゴリ別に表示


サンプルファイル一覧


 ■■■■■■■■ 記 事 No.[28] Entry Start ■■■■■■■■

<--- 一覧へ戻る




[テキストボックスに今日の日付を表示]

080913_day_01.png

フォームの起動時、テキストボックスに今日の日付を表示します。コードを書く場所は、フォーム中の「UserForm_Initialize」のです。 テキストボックス1をフォームに作って、下のコードを貼り付けてください。




Private Sub UserForm_Initialize()

 '====================================
 'テキストボックスに今日の日付を表示
 '====================================

 TextBox1.Text = Date

End Sub

































サーバーの空き箱に入ってるニャン。甘えん坊ニャン。拍手はちょっとだけすきニャン。
_ameta_a.jpg


[F] テキストボックス | 【2008-09-13(Sat) 10:50:18】 | Trackback(-) | Comments(-)
編集

 [2008/09/13]  Update / by dz02572i


No.[27] テキストボックスの色をループ処理で変更




 ■■■■■■■■ Page Navi ■■■■■■■■


ブログトップへ戻る

カテゴリ別に表示


サンプルファイル一覧


 ■■■■■■■■ 記 事 No.[27] Entry Start ■■■■■■■■

<--- 一覧へ戻る




[テキストボックスの色をループ処理で変更]

*テキストボックスのフォント色と背景色をループ処理で一気に変えます。 前提条件として、テキストボックスの名前が 1~10、または01~10と連続していることです。名前を規則正しくつけていた方が処理が簡単です。


080913_00.png

080913_01.png


---> 参考 : 色見本 (色一覧 RGB)

・セル・テキストボックスの色の指定方法





Private Sub CommandButton1_Click()


'-----------------------------------------
'テキストボックスの色をループ処理で変更
'[TextBox1.Text] ---> [TextBox10.Text]
'-----------------------------------------

'1,2,3---> 10

Dim i As Long

For i = 1 To 10


  'フォント色
 Controls("TextBox" & i).ForeColor = RGB(255, 0, 0)

 '背景色
 Controls("TextBox" & i).BackColor = RGB(204, 255, 255)


Next i




End Sub








Private Sub CommandButton1_Click()

'-----------------------------------------
'テキストボックスの色をループ処理で変更
'[TextBox01.Text] ---> [TextBox10.Text]
'-----------------------------------------

'01,02,03---> 10

Dim i As Long

For i = 1 To 10

 'フォント色
 Controls("TextBox" & Format(i, "00")).ForeColor = RGB(255, 0, 0)
 
 '背景色
 Controls("TextBox" & Format(i, "00")).BackColor = RGB(204, 255, 255)


Next i





End Sub








































サーバーの空き箱に入ってるニャン。甘えん坊ニャン。拍手はちょっとだけすきニャン。
_ameta_a.jpg


[F] テキストボックス | 【2008-09-13(Sat) 07:26:21】 | Trackback(-) | Comments(-)
編集

 [2008/09/12]  Update / by dz02572i


No.[26] セル・テキストボックスの色の指定方法  (色一覧)




 ■■■■■■■■ Page Navi ■■■■■■■■


ブログトップへ戻る

カテゴリ別に表示


サンプルファイル一覧


 ■■■■■■■■ 記 事 No.[26] Entry Start ■■■■■■■■

<--- 一覧へ戻る




[セル・テキストボックスの色の指定方法]

080912_01.png


---> 色見本 (色一覧)



色を設定する方法はいくつかあります。
・RGB
・色番号
・カラーインデックス (セルの場合)

一番簡単なのはカラーインデックスを使う方法ですが、テキストボックスなどの色指定には使えないので(多分)、応用の利くRGBと色番号の方法を紹介します。


[シート]
・シートのセル --->フォント色
・シートのセル --->背景色
・シートのセル --->罫線 // 今回は省略

[フォームのコントロール / テキストボックス・リストボックスなど。]
・テキストボックス --->フォント色
・テキストボックス --->背景色





'=====================
'セルの色をRGBで設定
'=====================

'フォント色
Cells(1, "A").Font.Color = RGB(255, 0, 0) '赤


'背景色
Cells(1, "A").Interior.Color = RGB(0, 0, 255) '青


'========================
'セルの色を色番号で設定
'========================

'フォント色
Cells(1, "A").Font.Color = 255 '赤


'背景色
Cells(1, "A").Interior.Color = 16711680 '青






'=================================
'テキストボックスの色をRGBで設定
'=================================

'フォント色
TextBox1.ForeColor = RGB(255, 0, 0) '赤


'背景色
TextBox1.BackColor = RGB(0, 0, 255) '青



'====================================
'テキストボックスの色を色番号で設定
'====================================

'フォント色
TextBox1.ForeColor = 255 '赤


'背景色
TextBox1.BackColor = 16711680 '青




































サーバーの空き箱に入ってるニャン。甘えん坊ニャン。拍手はちょっとだけすきニャン。
_ameta_a.jpg


[B] 書式・色・罫線 | 【2008-09-12(Fri) 16:46:48】 | Trackback(-) | Comments(-)
編集

 [2008/09/12]  Update / by dz02572i


No.[25] リストボックス・コンボボックスの基本用語




 ■■■■■■■■ Page Navi ■■■■■■■■


ブログトップへ戻る

カテゴリ別に表示


サンプルファイル一覧


 ■■■■■■■■ 記 事 No.[25] Entry Start ■■■■■■■■

<--- 一覧へ戻る




[リストボックス・コンボボックスの用語]




 ListIndex : 現在選択されている行番号

リストインデックスは「0」から始まるので、1行目のListIndexは「0」、2行目のListIndexは「1」となります。 

現在の選択行を知りたい場合は、ListIndexから「1」を引きます。
MsgBox "選択行 --->" & ComboBox1.ListIndex - 1


さらに「ListIndex」では指定した行を選択することができます。

ComboBox1.ListIndex = 0 ---> 1行目が選択されます
ComboBox1.ListIndex = 1 ---> 2行目が選択されます
ComboBox1.ListIndex = 2 ---> 3行目が選択されます
 
 *リストがない場合はエラーになります。
 



 ListCount :リストの数
 ListRows  :コンボ ボックスのリストボックスのに表示される最大行数

MsgBox ComboBox1.ListCount
 ---> リストがいくつあるか

ComboBox1.ListRows = 5
 ---> 一度に表示できるリストを5つに限定。 表示できない場合はスクロールバーが表示される。





 ColumnCount :列の数
 ColumnWidths :列の幅

ComboBox1.ColumnCount = 3
 ---> 列数を3つに指定

ComboBox1.ColumnWidths = "1cm;0cm;3cm"
 ---> 列の長さを指定




 BoundColumn
 Column



























サーバーの空き箱に入ってるニャン。甘えん坊ニャン。拍手はちょっとだけすきニャン。
_ameta_a.jpg


[F] リストボックス・コンボボックス | 【2008-09-12(Fri) 06:26:48】 | Trackback(-) | Comments(-)
編集

 [2008/09/11]  Update / by dz02572i


No.[24] コンボボックスに来月の日付を追加する




 ■■■■■■■■ Page Navi ■■■■■■■■


ブログトップへ戻る

カテゴリ別に表示


サンプルファイル一覧


 ■■■■■■■■ 記 事 No.[24] Entry Start ■■■■■■■■

<--- 一覧へ戻る





[コンボボックスに来月の日付を追加する]

今回はコンボボックスに来月の日付を追加するマクロです。
月のチェックをして、分岐処理をしています。もう少し簡単になりそうな気がしますが・・・。 参考にどうぞ。

080906_01.png




Private Sub CommandButton1_Click()

'====================================
'来月の日付をコンボボックスに追加
'====================================


Dim dToday '基準日

Dim dYear
Dim dMonth
Dim dDay

Dim dString As String

Dim dDateA As Date
Dim dDateB As Date

Dim i


'-------------------------------
'前回のコンボボックスをクリアー
'-------------------------------
ComboBox1.Clear

'-----------
'基準日
'-----------
dToday = Date '今日の日付 //
'dToday = DateValue("2008/11/5")

MsgBox "基準日 --> " & dToday


'-------------------------------
'月のチェック
'-------------------------------

Select Case Month(dToday)

  Case 1, 2, 3, 4, 5, 6, 7, 8, 9, 10
  dYear = Year(dToday)
  dMonth = Month(dToday) + 2
  dDay = 1
  dString = dYear & "/" & dMonth & "/" & dDay

 Case 11
  dYear = Year(dToday) + 1
  dMonth = 1
   dDay = 1
  dString = dYear & "/" & dMonth & "/" & dDay

 Case 12
  dYear = Year(dToday) + 1
  dMonth = 2
  dDay = 1
  dString = dYear & "/" & dMonth & "/" & dDay


End Select


'---------------
'来月の最終日
'---------------
'文字列を日付に変換。 1を引くことで、来月の最終日が取得できる。
dDateB = DateValue(dString) - 1


'----------
'来月の1日
'----------
dDateA = DateValue(Year(dDateB) & "/" & Month(dDateB) & "/1")





'-------------------------
'日付をコンボボックスへ
'-------------------------
For i = dDateA To dDateB

ComboBox1.AddItem i

Next i




End Sub
































サーバーの空き箱に入ってるニャン。甘えん坊ニャン。拍手はちょっとだけすきニャン。
_ameta_a.jpg


[F] リストボックス・コンボボックス | 【2008-09-11(Thu) 15:26:36】 | Trackback(-) | Comments(-)
編集

 [2008/09/10]  Update / by dz02572i


No.[23] コンボボックスに先月の日付を追加する




 ■■■■■■■■ Page Navi ■■■■■■■■


ブログトップへ戻る

カテゴリ別に表示


サンプルファイル一覧


 ■■■■■■■■ 記 事 No.[23] Entry Start ■■■■■■■■

<--- 一覧へ戻る





[コンボボックスに先月の日付を追加する]

今回はコンボボックスに先月の日付を追加するマクロです。

080906_01.png





Private Sub CommandButton1_Click()

'====================================
'先月の日付をコンボボックスに追加
'====================================


Dim dToday '基準日

Dim dDate1 As Date
Dim dDateA As Date
Dim dDateB As Date
Dim i


'-------------------------------
'前回のコンボボックスをクリアー
'-------------------------------
ComboBox1.Clear



'-----------
'基準日
'-----------
dToday = Date '今日の日付
'dToday = "2009/1/3"

MsgBox "基準日 --> " & dToday


'----------
'今月の1日
'----------
dDate1 = DateValue(Year(dToday) & "/" & Month(dToday) & "/1")

'----------
'先月の末
'----------
dDateB = dDate1 - 1

'----------
'先月の1日
'----------
dDateA = DateValue(Year(dDateB) & "/" & Month(dDateB) & "/1")




'-------------------------
'日付をコンボボックスへ
'-------------------------
For i = dDateA To dDateB

 ComboBox1.AddItem i

Next i


End Sub

































サーバーの空き箱に入ってるニャン。甘えん坊ニャン。拍手はちょっとだけすきニャン。
_ameta_a.jpg


[F] リストボックス・コンボボックス | 【2008-09-10(Wed) 06:37:17】 | Trackback(-) | Comments(-)
編集

 [2008/09/09]  Update / by dz02572i


No.[22] コンボボックスに今月の日付を追加する




 ■■■■■■■■ Page Navi ■■■■■■■■


ブログトップへ戻る

カテゴリ別に表示


サンプルファイル一覧


 ■■■■■■■■ 記 事 No.[22] Entry Start ■■■■■■■■

<--- 一覧へ戻る





[コンボボックスに今月の日付を追加する]

今回はコンボボックスに今月の日付を追加するマクロです。

080906_01.png




Private Sub CommandButton1_Click()

'====================================
'今月の日付をコンボボックスに追加
'====================================


Dim dToday '基準日

Dim dYear
Dim dMonth
Dim dDay

Dim dString As String

Dim dDateA As Date
Dim dDateB As Date

Dim i


'-------------------------------
'前回のコンボボックスをクリアー
'-------------------------------
ComboBox1.Clear


'-----------
'基準日
'-----------
dToday = Date '今日の日付 //
'dToday = "2008/12/1"


MsgBox "基準日 --> " & dToday


'-------------------------------
'月のチェック
'-------------------------------
Select Case Month(dToday)

 Case 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11
  dYear = Year(dToday)
  dMonth = Month(dToday) + 1
  dDay = 1
  dString = dYear & "/" & dMonth & "/" & dDay

 Case 12 '12月
  dYear = Year(dToday) + 1
  dMonth = 1
  dDay = 1
  dString = dYear & "/" & dMonth & "/" & dDay

End Select


'----------
'今月の1日
'----------
dDateA = DateValue(Year(dToday) & "/" & Month(dToday) & "/1")

'------------
'今月の最終日
'------------
dDateB = DateValue(dString) - 1


'-------------------------
'日付をコンボボックスへ
'-------------------------

For i = dDateA To dDateB

 ComboBox1.AddItem i

Next i

End Sub





























サーバーの空き箱に入ってるニャン。甘えん坊ニャン。拍手はちょっとだけすきニャン。
_ameta_a.jpg


[F] リストボックス・コンボボックス | 【2008-09-09(Tue) 05:22:30】 | Trackback(-) | Comments(-)
編集

 [2008/09/08]  Update / by dz02572i


No.[21] コンボボックスに来週の日付を追加する




 ■■■■■■■■ Page Navi ■■■■■■■■


ブログトップへ戻る

カテゴリ別に表示


サンプルファイル一覧


 ■■■■■■■■ 記 事 No.[21] Entry Start ■■■■■■■■

<--- 一覧へ戻る




[コンボボックスに来週の日付を追加する]

前回・前々回に続き、今回はコンボボックスに来週の日付を追加するマクロです。

080906_01.png




Private Sub CommandButton1_Click()

'------------------------------------
'来週の日付をコンボボックスに追加
'------------------------------------

'来週の期間を取得


Dim sToday As String
Dim dToday As Date

Dim topDate As Date
Dim lstDate As Date

Dim idate As Date


ComboBox1.Clear

dToday = Date '基準日
'dToday = "2008/09/17" '基準日

sToday = Format(dToday, "aaa") '基準日を曜日に変換

MsgBox "基準日 --> " & dToday

Select Case sToday

Case "月"
 topDate = dToday + 7
 lstDate = dToday + 13

Case "火"
 topDate = dToday + 6
 lstDate = dToday + 12


Case "水"
 topDate = dToday + 5
 lstDate = dToday + 11

Case "木"
 topDate = dToday + 4
 lstDate = dToday + 10

Case "金"
 topDate = dToday + 3
 lstDate = dToday + 9


Case "土"
 topDate = dToday + 2
 lstDate = dToday + 8


Case "日"
 topDate = dToday + 1
 lstDate = dToday + 7

End Select



For idate = topDate To lstDate

 ComboBox1.AddItem idate

Next idate




End Sub































サーバーの空き箱に入ってるニャン。甘えん坊ニャン。拍手はちょっとだけすきニャン。
_ameta_a.jpg


[F] リストボックス・コンボボックス | 【2008-09-08(Mon) 05:48:42】 | Trackback(-) | Comments(-)
編集

 [2008/09/07]  Update / by dz02572i


No.[20] コンボボックスに先週の日付を追加する




 ■■■■■■■■ Page Navi ■■■■■■■■


ブログトップへ戻る

カテゴリ別に表示


サンプルファイル一覧


 ■■■■■■■■ 記 事 No.[20] Entry Start ■■■■■■■■

<--- 一覧へ戻る




[コンボボックスに先週の日付を追加する]

前回に続き、今回はコンボボックスに先週の日付を追加するマクロです。

今週の日付の取得については、下アドレスの応用です。
http://vocexcel.blog7.fc2.com/blog-entry-17.html

080906_01.png




Private Sub CommandButton1_Click()

'------------------------------------
'先週の日付をコンボボックスに追加
'------------------------------------

 '先週の期間を取得


 Dim sToday As String
 Dim dToday As Date

 Dim topDate As Date
 Dim lstDate As Date

 Dim idate As Date


 ComboBox1.Clear

 dToday = Date '基準日
 'dToday = "2008/09/17" '基準日

 sToday = Format(dToday, "aaa") '基準日を曜日に変換

 MsgBox "基準日 --> " & dToday

 Select Case sToday

  Case "月"
 topDate = dToday - 7
 lstDate = dToday - 1

 Case "火"
 topDate = dToday - 8
 lstDate = dToday - 2


 Case "水"
 topDate = dToday - 9
 lstDate = dToday - 3

 Case "木"
 topDate = dToday - 10
 lstDate = dToday - 4

 Case "金"
 topDate = dToday - 11
 lstDate = dToday - 5


 Case "土"
 topDate = dToday - 12
 lstDate = dToday - 6

 Case "日"
 topDate = dToday - 13
 lstDate = dToday - 7

 End Select



 For idate = topDate To lstDate

  ComboBox1.AddItem idate

 Next idate




End Sub





























サーバーの空き箱に入ってるニャン。甘えん坊ニャン。拍手はちょっとだけすきニャン。
_ameta_a.jpg


[F] リストボックス・コンボボックス | 【2008-09-07(Sun) 05:20:06】 | Trackback(-) | Comments(-)
編集

 [2008/09/06]  Update / by dz02572i


No.[19] コンボボックスに今週の日付を追加する




 ■■■■■■■■ Page Navi ■■■■■■■■


ブログトップへ戻る

カテゴリ別に表示


サンプルファイル一覧


 ■■■■■■■■ 記 事 No.[19] Entry Start ■■■■■■■■

<--- 一覧へ戻る




[コンボボックスに今週の日付を追加する]

コンボボックスに今週に日付を追加するマクロです。

今週の日付の取得については、下アドレスの応用です。
http://vocexcel.blog7.fc2.com/blog-entry-17.html

080906_01.png




Private Sub CommandButton1_Click()

'------------------------------------
'今週の日付をコンボボックスに追加
'------------------------------------

'今週の期間を取得


Dim sToday As String
Dim dToday As Date

Dim topDate As Date
Dim lstDate As Date

Dim idate As Date


ComboBox1.Clear

dToday = Date '基準日
'dToday = "2008/09/17" '基準日

sToday = Format(dToday, "aaa") '基準日を曜日に変換

MsgBox "基準日 --> " & dToday

Select Case sToday

 Case "月"
 topDate = dToday
 lstDate = dToday + 6

  Case "火"
 topDate = dToday - 1
 lstDate = dToday + 5


 Case "水"
 topDate = dToday - 2
 lstDate= dToday + 4

  Case "木"
 topDate = dToday - 3
 lstDate = dToday + 3

 Case "金"
 topDate = dToday - 4
 lstDate = dToday + 2


 Case "土"
 topDate = dToday - 5
 lstDate = dToday + 1


 Case "日"
 topDate = dToday - 6
 lstDate = dToday + 0

End Select



For idate = topDate To lstDate

 ComboBox1.AddItem idate

Next idate




End Sub





























サーバーの空き箱に入ってるニャン。甘えん坊ニャン。拍手はちょっとだけすきニャン。
_ameta_a.jpg


[F] リストボックス・コンボボックス | 【2008-09-06(Sat) 05:49:59】 | Trackback(-) | Comments(-)
編集

 [2008/09/05]  Update / by dz02572i


No.[18] リスト・コンボボックスに1~10の値を入れる




 ■■■■■■■■ Page Navi ■■■■■■■■


ブログトップへ戻る

カテゴリ別に表示


サンプルファイル一覧


 ■■■■■■■■ 記 事 No.[18] Entry Start ■■■■■■■■

<--- 一覧へ戻る



[リストボックスに1~10の値を入れる]

080905_02.jpg

Private Sub CommandButton1_Click()

'------------------------------------
'1~10までリストボックスに値を入れる
'------------------------------------

Dim i As Long

'リストボックスのリストをクリアーしておく
ListBox1.Clear


For i = 1 To 10

ListBox1.AddItem i

Next i



End Sub





[コンボボックスに1~10の値を入れる]

080905_01.jpg


Private Sub CommandButton1_Click()

'------------------------------------
'1~10までコンボボックスに値を入れる
'------------------------------------

 Dim i As Long

 'コンボボックスのリストをクリアーしておく
 ComboBox1.Clear


 For i = 1 To 10

 ComboBox1.AddItem i

 Next i




End Sub































サーバーの空き箱に入ってるニャン。甘えん坊ニャン。拍手はちょっとだけすきニャン。
_ameta_a.jpg


[F] リストボックス・コンボボックス | 【2008-09-05(Fri) 06:00:48】 | Trackback(-) | Comments(-)
編集

 [2008/09/04]  Update / by dz02572i


No.[17] 今週・先週・来週の日付を取得(期間)




 ■■■■■■■■ Page Navi ■■■■■■■■


ブログトップへ戻る

カテゴリ別に表示


サンプルファイル一覧


 ■■■■■■■■ 記 事 No.[17] Entry Start ■■■■■■■■

<--- 一覧へ戻る




[今週・先週・来週の日付を取得]

今週・先週・来週の期間を取得するマクロです。1~13の足し算と引き算で取得できます。 

[今週]  基準日の曜日から、今週の「月曜日」、今週の「日曜日」を計算する。
[先週]  基準日の曜日から、先週の「月曜日」、先週の「日曜日」を計算する。
[来週]  基準日の曜日から、来週の「月曜日」、来週の「日曜日」を計算する。




080904_01b.png

Sub dThisWeek()

 '今週の期間を取得


 Dim sToday As String
 Dim dToday As Date


 'dToday = Date '基準日
 dToday = "2008/09/10" '基準日
 sToday = Format(dToday, "aaa") '基準日を曜日に変換

 MsgBox "基準日 --> " & dToday

 Select Case sToday

 Case "月"
 MsgBox "今週 -- >" & dToday & " ~" & dToday + 6

 Case "火"
 MsgBox "今週 -- >" & dToday - 1 & " ~" & dToday + 5

 Case "水"
 MsgBox "今週 -- >" & dToday - 2 & " ~" & dToday + 4

 Case "木"
 MsgBox "今週 -- >" & dToday - 3 & " ~" & dToday + 3

 Case "金"
 MsgBox "今週 -- >" & dToday - 4 & " ~" & dToday + 2

  Case "土"
 MsgBox "今週 -- >" & dToday - 5 & " ~" & dToday + 1

 Case "日"
 MsgBox "今週 -- >" & dToday - 6 & " ~" & dToday + 0


 End Select



End Sub




080904_02b.png

Sub dLastWeek()

  '先週の期間を取得


 Dim sToday As String
 Dim dToday As Date


 'dToday = Date '基準日
 dToday = "2008/09/10" '基準日
 sToday = Format(dToday, "aaa") '基準日を曜日に変換

 MsgBox "基準日 --> " & dToday

 Select Case sToday

 Case "月"
 MsgBox "先週 -- >" & dToday - 7 & " ~" & dToday - 1

 Case "火"
 MsgBox "先週 -- >" & dToday - 8 & " ~" & dToday - 2

 Case "水"
 MsgBox "先週 -- >" & dToday - 9 & " ~" & dToday - 3

 Case "木"
 MsgBox "先週 -- >" & dToday - 10 & " ~" & dToday - 4

 Case "金"
 MsgBox "先週 -- >" & dToday - 11 & " ~" & dToday - 5

 Case "土"
 MsgBox "先週 -- >" & dToday - 12 & " ~" & dToday - 6

 Case "日"
 MsgBox "先週 -- >" & dToday - 13 & " ~" & dToday - 7


 End Select



End Sub




080904_03b.png

Sub dNextWeek()

 '来週の期間を取得


 Dim sToday As String
 Dim dToday As Date


 'dToday = Date '基準日
 dToday = "2008/09/10" '基準日
 sToday = Format(dToday, "aaa") '基準日を曜日に変換

 MsgBox "基準日 --> " & dToday

 Select Case sToday

  Case "月"
 MsgBox "来週 -- >" & dToday + 7 & " ~" & dToday + 13

 Case "火"
 MsgBox "来週 -- >" & dToday + 6 & " ~" & dToday + 12

 Case "水"
 MsgBox "来週 -- >" & dToday + 5 & " ~" & dToday + 11

 Case "木"
 MsgBox "来週 -- >" & dToday + 4 & " ~" & dToday + 10

 Case "金"
 MsgBox "来週 -- >" & dToday + 3 & " ~" & dToday + 9

 Case "土"
  MsgBox "来週 -- >" & dToday + 2 & " ~" & dToday + 8

 Case "日"
 MsgBox "来週 -- >" & dToday + 1 & " ~" & dToday + 7


 End Select



End Sub





























サーバーの空き箱に入ってるニャン。甘えん坊ニャン。拍手はちょっとだけすきニャン。
_ameta_a.jpg


[U] 日付・時刻 | 【2008-09-04(Thu) 05:54:55】 | Trackback(-) | Comments(-)
編集

 [2008/09/03]  Update / by dz02572i


No.[16] 今月の最終日を取得




 ■■■■■■■■ Page Navi ■■■■■■■■


ブログトップへ戻る

カテゴリ別に表示


サンプルファイル一覧


 ■■■■■■■■ 記 事 No.[16] Entry Start ■■■■■■■■

<--- 一覧へ戻る




[今月の最終日を取得]

*閏年にも対応できると思います。

080903.png




Sub thisDay()


 '###############################################
 '今月の最終日を取得 // 「来月の1日 - 1」が今月の最終日。
 '閏年にも対応できると思います。
 '###############################################
 
 Dim DateOne '基準日
 
 Dim YearB
 Dim MonthB
 Dim DayB
 
 Dim DateStringB

 Dim DateB
  
 
 DateOne = Date '今日の日付 // ここをカスタマイズする。
 
  If Month(DateOne) <> 12 Then '今月が12月でないならば、来月は「今月 + 1」
 
  YearB = Year(DateOne)
  MonthB = Month(DateOne) + 1
  DayB = 1
  
  '先月の1日を文字列にする
  DateStringB = YearB & "/" & MonthB & "/" & DayB
  
  '文字列を日付に変換。 1を引くことで、今月の最終日が取得できる。
  DateB = DateValue(DateStringB) - 1
   
 
 Else ' 今月が12月だったら、来年の1月になる
   
  YearB = Year(DateOne) + 1
  MonthB = 1
  DayB = 1
  
  
  '先月の1日を文字列にする
  DateStringB = YearB & "/" & MonthB & "/" & DayB
  
  '文字列を日付に変換。 1を引くことで、今月の最終日が取得できる。
  DateB = DateValue(DateStringB) - 1
  
 End If
  

MsgBox "[今月の最終日] ---> " & DateB


End Sub






























サーバーの空き箱に入ってるニャン。甘えん坊ニャン。拍手はちょっとだけすきニャン。
_ameta_a.jpg


[U] 日付・時刻 | 【2008-09-03(Wed) 06:18:29】 | Trackback(-) | Comments(-)
編集

 [2008/09/02]  Update / by dz02572i


No.[15] 行の挿入・削除




 ■■■■■■■■ Page Navi ■■■■■■■■


ブログトップへ戻る

カテゴリ別に表示


サンプルファイル一覧


 ■■■■■■■■ 記 事 No.[15] Entry Start ■■■■■■■■

<--- 一覧へ戻る




[行の挿入・削除]

080902.png




Sub insrtS()

 '行の挿入

 Dim myRow As Long
 myRow = ActiveCell.Row


  ActiveCell.Rows.EntireRow.Select '行全体を選択


 If MsgBox("行を挿入します。", vbOKCancel) = vbOK Then

    Rows("65536:65536").Select '一番下の行を削除しておく
    Selection.Delete Shift:=xlUp

    Cells(myRow + 1, "H").Select
    ActiveCell.Rows.EntireRow.Select '行全体を選択

    Selection.Insert Shift:=xlDown '挿入

End If




End Sub




Sub delA()

'行の削除

 Dim myRow As Long
 myRow = ActiveCell.Row

 ActiveCell.Rows.EntireRow.Select '行全体を選択


If MsgBox("行を挿入します。", vbOKCancel) = vbOK Then

    '削除行を選択
    Rows(ActiveCell.Row).Select
    Selection.Delete Shift:=xlUp

End If

End Sub




[参考 / 複数行の削除]
VocExcel(単語帳) / VBA Tips
http://www.geocities.co.jp/SiliconValley-Bay/2717/VBA/excel_055.htm




























サーバーの空き箱に入ってるニャン。甘えん坊ニャン。拍手はちょっとだけすきニャン。
_ameta_a.jpg


[A] 行・列 | 【2008-09-02(Tue) 06:59:40】 | Trackback(-) | Comments(-)
編集

 [2008/09/01]  Update / by dz02572i


No.[14] テキストボックスの値を削除




 ■■■■■■■■ Page Navi ■■■■■■■■


ブログトップへ戻る

カテゴリ別に表示


サンプルファイル一覧


 ■■■■■■■■ 記 事 No.[14] Entry Start ■■■■■■■■

<--- 一覧へ戻る




[テキストボックスの値を削除(1~10)]

080901_01.png

Private Sub CommandButton1_Click()


 Dim i As Long

 '-----------------------------------------
 'テキストボックスの値をループ処理で削除
 '[TextBox1.Text] ---> [TextBox10.Text]
 '-----------------------------------------

 '1,2,3---> 10

 For i = 1 To 10

   Controls("TextBox" & i).Text = ""

 Next i



End Sub




[テキストボックスの値を削除(01~10)]

080901_02.png


Private Sub CommandButton1_Click()


 Dim i As Long

 '-----------------------------------------
 'テキストボックスの値をループ処理で削除
 '[TextBox01.Text] ---> [TextBox10.Text]
 '-----------------------------------------

 '01,02,03---> 10
 For i = 1 To 10

  Controls("TextBox" & Format(i, "00")).Text = ""

 Next i



End Sub
































サーバーの空き箱に入ってるニャン。甘えん坊ニャン。拍手はちょっとだけすきニャン。
_ameta_a.jpg


[F] テキストボックス | 【2008-09-01(Mon) 11:33:03】 | Trackback(-) | Comments(-)
編集  

 
Ads by Google 1
Ads by Google 2




-- 我的PC古箱 ---
SCR3310-NTTCom_001b.png
・NTT-ME SCR3310-NTTCom
---> B-CASカードも読み込めます。
http://sc440ge.blog59.fc2.com/blog-entry-149.html

BCA-453K_001b.png
・東芝 BCA-453K(BS・110度CSアンテナ/ベランダ取付金具セット) / レビュー
http://sc440ge.blog59.fc2.com/blog-entry-148.html



・日立ドットインパクトプリンター / IMPACTSTAR-SE130II その4 / Windows7で使えるようにする。
http://sc440ge.blog59.fc2.com/blog-entry-147.html


etax_000.png
・e-Tax / 「法人・社会福祉法人」の源泉所得税の電子納付
http://sc440ge.blog59.fc2.com/blog-entry-146.html



skydrive_000.png
SkyDrive トラブル
--->共有フォルダに表示できない
--->あなたと共有されているドキュメントやフォルダーはありません。
http://sc440ge.blog59.fc2.com/blog-entry-145.html



SDFormatter_000.png
・Panasonic SDフォーマッター / SDFormatter
---> 正しく認識できないSDカード/USBメモリをフォーマットする
http://sc440ge.blog59.fc2.com/blog-entry-143.html



017-free.png
・FreeNasに「NTFS」フォーマット済みHDDを追加する
http://sc440ge.blog59.fc2.com/blog-entry-142.html


BDR_S06J_BK_000.jpg
・パイオニア ブルーレイドライブ BDR-S06J-BK レビュー
http://sc440ge.blog59.fc2.com/blog-entry-141.html



HPProLiantML110G5_000.jpg
・「HP ProLiant ML110 G5」に「FreeNAS」をインストール
http://sc440ge.blog59.fc2.com/blog-entry-140.html


ENERMAX_KB008W_B_000.jpg
・ENERMAX キーボード AURORAマイクロワイヤレス ブラック KB008W-B
http://sc440ge.blog59.fc2.com/blog-entry-139.html

Lenovo_N5901_57Y6585_000.jpg
・Lenovo ミニ・ワイヤレスキーボード N5901 57Y6585 57Y6585
http://sc440ge.blog59.fc2.com/blog-entry-138.html



LL750_001.jpg
・NEC LaVie L LL750/ES6R PC-LL750ES6R
http://sc440ge.blog59.fc2.com/blog-entry-137.html



SH67H3_000.png
シャトル SH67H3
---> チップセットにインテル「H67 Express」を採用したSandy Bridge対応のキューブ型ベアボーン
---> 「Core i7-2600K」を取り付けました。
http://sc440ge.blog59.fc2.com/blog-entry-136.html



DSC-WX7_000.png
SONY サイバーショット DSC-WX7
http://sc440ge.blog59.fc2.com/blog-entry-135.html


BRD_U8DM_B007.png
・DiXiM BD Burner
---> DTCP-IPネットワークダビング可能なソフトです。「IODATA BRD-U8DM」に付属しています。


BRD_U8DM_000.png
・IODATA BRD-U8DM / DTCP-IPネットワークダビング対応 ブルーレイドライブ



SOLOMAXXV_000.jpg
・SOLO MAXX V レビュー / ラジコンヘリ / NINE EAGLES
---> 今回は小型ラジコンヘリのレビューです。


pt2_001b.png
・アースソフト pt2 rev.b
---> 「アースソフト pt2 rev.b」のレビューです。



GALAXYTabSC-01C_001b.png
・SAMSUNG docomo GALAXY Tab SC-01C
---> 「SAMSUNG docomo GALAXY Tab SC-01C」の 購入レビューです。



・NEC LaVie L LL870/BS PC-LL870BS [スパークリングリッチブラック] レビュー
---> NECのハイスペックノートパソコンのレビューです。ワイヤレスTVが付属しています。


MX130_001b.png
・FUJITSU PRIMERGY MX130 S1 PGM1311BAD / 富士通激安サーバー レビュー
----> 富士通の格安サーバーのプレビューです。


Gh-usb-8ad_001b.png
・USB充電ケーブル (7コネクタ+MiniB5タイプ) GH-USB-8AD / GREEN HOUSE 携帯電話
---> USB充電ケーブルです。 Xperiaはパソコンに接続してデータのやりとりはできませんでした。



Kcusbsc3_001b.png
・USB充電ケーブル スマートコネクト3 KCUSBSC3
---> USB充電ケーブルです。 Xperiaとipodに使います。パソコンに接続してデータのやり取りも可能です。




ATOK_001.png
・ATOK 2011 for Windows [プレミアム] 購入 / レビュー
---> ATOKの最新版のレビューです。 エクセルとの連携に興味があったので、「プレミアム版」を購入しました。ダウンロード通常版で10,500円でした。



ThinkCentreS50_8086-2AJ_001b.png
・Lenovo / IBM ThinkCentre S50 (8086-2AJ) HDD交換 / 解体
---> レノボ(IBM)の省スペースデスクトップのHDD交換です。簡単です。



MovieTheater3_001b.png
・デジカメde!!ムービーシアター3 / スライドショーの作り方・使い方



GF8400GS-LE256H3_002b.png
・玄人志向 GF8400GS-LE256H3 [PCIExp 256MB]
--->玄人志向のグラフィックボード「GF8400GS-LE256H3 [PCIExp 256MB]」です。SPDIFケーブル不要でHDMIの音声出力に対応しています。


Express5800S70typeRB_001.jpg
・NEC Express5800/S70 タイプRB NP8100-9021PS01
---> NECの格安サーバのレビューです。

HVL1-G10T_001b.png
・アイ・オー・データ HVL1-G1.0T
---> IODATAのDTCP-IP対応 ハイビジョンレコーディングHDDです。 Regza用に購入しました。

LS-XH10TL_001B.jpg
・ネットワーク対応HDD LS-XH1.0TL (NAS)
---> BUFFALO(メルコ)のネットワーク対応HDDです。高速転送を実現したLAN接続型HDD(1TB)。なかなか便利ですよ。

FMVCE70E7_000b.png
・富士通 FMV-DESKPOWER CE70E7
---富士通のデスクトップパソコンの解体方法(HDD交換)です。


GT110b_001b.png
・NEC Express5800/GT110b
http://sc440ge.blog59.fc2.com/blog-entry-115.html
---> NECの格安サーバーのレビューです。 かなり良いです。おすすめ。


RDT231WMS-D_001b.png
・23型グレア三菱液晶ディスプレイ RDT231WMS-D / レビュー
---> 三菱の液晶ディスプレイのレビューです。


M215BK_001b.png
・Logicool Wireless Mouse M215
ロジクールのワイヤレスマウス「M215」のレビューです。


HD_Pro_Webcam_C910_001b.jpg
・[ Logicool HD Pro Webcam C910 ブラック ] レビュー
---> USB接続のウェブカメラです。


CS-WMV04N_t001b.png
・PLANEX ネットワークカメラ > [ CS-WMV04N ]を購入・設定する
---> ネットワークカメラの設定です。 無線ルーターの「WZR-HP-G301NH」で設定しました。
・[ Android ][ ipod/ipad ]でからPLANEX ネットワークカメラ [ CS-WMV04N ]にアクセスする
--->Android/iPodからカメラにアクセスします。


WZR-HP-G301NH_VPN_019b.png
・外部(外出先)からパソコンの電源を入れる
---> BUFFALO 無線ルーター WZR-HP-G301NHを使って、外出先から自宅のパソコンの電源をいれる方法です。
・ポート開放 / BUFFALO 無線ルーター WZR-HP-G301NH
---> WZR-HP-G301NHのポート開放の方法です。


t5730w_DY-UD200_00b.jpg
「HP Compaq t5730w Thin Client」に地デジチューナー「DY-UD200」を取り付ける
---> シンクライアントに地デジチューナーを取り付けてみました。


Palit_GeForce8400GS_001b.png
GeForce 8400GS (PCIExp 256MB) / Palit Microsystems
---> Palit Microsystemsのグラフィックカード「GeForce 8400GS (256MB) (PCIExp 256MB)」のレビューです。ドスパラにて価格は2,980円でした。今回は「NEC Express5800/110Ge」「NEC Express5800/110Gd」用に加工します。


t5730w_001b.png
・HP Compaq t5730w Thin Client / t5730 解体
---> HPシンクライアント「t5730w」の解体方法です。
・HP Compaq t5730w Thin Client / t5730 / OSインストール・初期設定
---> OSのインストール方法・初期設定です。


MM-SPU2_002b.png
・SANWA USBスピーカー レビュー
---> サンワのUSBスピーカー [MM-SPU2SV (シルバー) / MM-SPU2WH (ホワイト)]のレビューです。



VG421AV-AABH_001b.png
HP Pavilion Notebook PC dv7/CT (VG421AV-AABH)
 ---> HPの17型ノートパソコンのレビューです。 2010年春モデルです。



Xperia_Home_001b.png

[ Xperia ] おすすめアプリ / 使用アプリ一覧
---> Xperiaのおすすめソフトです。 使用アプリの一覧も載せています。


GV-MC7_001b.png
・リモコン [ GV-MC7/RCKIT ]を「DY-UD200」で使う
--->Windows Media Center専用リモコン [ GV-MC7/RCKIT ]を地デジチューナー「DY-UD200」で使います。


・Xperiaでバージョンアップ後、 通話が10秒過ぎたら切れる
---> Xperiaを「2010年8月30日 版」にアップデートしたら、通話10秒で切れるようになりました。その解決方法です。


pc_1051.jpg

[NEC Express5800/110Gd [ VGA交換 - 玄人志向 RH4350-LE256HD/HS ]
---> NEC Express5800/110Gd にグラフィックボードを装着しました。



[ CPU換装 / ベンチマーク ]
e6300e2180_00.jpg

・「Pentium Dual-Core E2180 / 2.00 GHz」
---> DELL SC440 デフォルトのCPU「E2180」です。

・「Intel Celeron D 341(2.93GHz) 」
---> [ NEC Express5800/110Gd ] デフォルトのCPUです。

・「Pentium Dual-Core E2180 / 2.00 GHz」
---> [ NEC Express5800/110Gd ] のCPUを換装しました。

・「Intel Celeron 430(1.8GHz)」
---> [ NEC Express5800/110Ge ] デフォルトCPUです。

・「Intel Core 2 Duo E6300 / 1.86GHz」
---> [ NEC Express5800/110Ge ] のCPUを換装しました。

・「Pentium Dual-Core E5200/ 2.50GHz 」
---> [ NEC Express5800/110Ge ] のCPUを換装しました。

・「Pentium Dual-Core E5300/ 2.60GHz 」
---> [ NEC Express5800/S70 タイプSD ]のCPUを換装しました。

** NEC Express5800/S70 タイプSDのCPUを交換(換装)する
---> タイプSDのCPUをE5300に交換してみました。BIOSの更新方法です。


・CPUベンチマーク 比較
・Celeron D 341 (single)
・Celeron 430 (single)
・E6300 (Core 2 Duo)
・E2180 (Pentium Dual-Core)
・E5200 (Pentium Dual-Core)
・E5300 (Pentium Dual-Core)





TrueImage_000.png
「Acronis True Image Home 2011 英語版」 購入
---> 「True Image」の最新バージョン「2011」を購入しました。日本語版はまだ出ていないので本家から英語版の購入です。
データ救出 (サルベージ) / Acronis True Image Home 2011 英語版
---> 「True Image」で起動できないパソコンからデータ救出します。


NEC_MA10T_000.jpg
NEC MA10T (MA10T/C) / HDD 交換
 ---> ちょっと古いパソコンですがまだまだ動きます。 HDDの交換方法です。


Edius_icn2.png

[ EDIUS Neo ] スライドショーを作る / EDIUS Neo 2 Booster
 ---> 動画編集ソフトのEdius Neoでスライドショーを作成します。
[ EDIUS Neo ] 動画の途中に写真のスライドショーを流す / EDIUS Neo 2 Booster
 ---> Edius Neoで動画の途中にスライドショーを流す方法です。

LG_W2753V_PF_001b.jpg
・LG W2753V-PF [27インチ液晶モニター]
---> NTT-Xで購入しました。 X-DAYの限定30台で19,980円でした。

RC132_000.jpg
・AIM RF ワイヤレスプレゼンター +マウス(RC132/RF607)
---> 片手でマウス操作ができます。

DR_BT100CX_000.jpg
・DR-BT100CX/B / SONY Bluetoothワイヤレスステレオヘッドセット ブラック / DR-BT100CX (B)
---> Bluetooth接続のワイヤレスヘッドホンです。Xperiaやパソコンで使っています。


BSHSBD02_000.jpg
・Buffalo BSHSBD02 / ブルートゥースUSBアダプタ
 ---> BluethoothのUSBアダプターです。 デスクトップや古いノートパソコンなどブルートゥースが使えない機種で使えるようにするアダプターです。


SR8KX06B_001b.jpg
・工人舎 SR8KX06B (ミニノートパソコン)
---> 工人舎のミニノートパソコン「 SR8KX06B 」です。2010年の2月くらいに29,800円で購入しました。 7インチで小さいのですが、スーパーマルチドライブを搭載しています。

LE256H2_000s.jpg

・玄人志向 GF8400GS-LE256H2 (PCIExp 256MB)

 ---> 格安のグラフィックカードです。


DM626_001s.jpg

・DM626 HDMI Video Capture Card / HDCAPPCIE
 ---> HDMIキャプチャーカードです。
・Honestech DVR2.5 設定 / DM626 HDMI Video Capture Card / HDCAPPCIE
 ---> 付属ソフト「Honestech DVR2.5」の設定例です。
・アマレコTV 設定 / DM626 HDMI Video Capture Card / HDCAPPCIE
 ---> 「アマレコTV」の設定例です。


DY_UD200_001b.jpg
・DY-UD200 地デジチューナー (ダイナコネクティブ)
 ---> 3,780円で購入しました。リモコン付でお買い得でした。



dwrpg-001a.png

・[ DWR-PG / ポータブルWi-Fiルーター] を購入 / 写真など

・[ DWR-PG ]のランプの状態

・[ DWR-PG ]のインターネット接続設定

・XPERIAと「 DWR-PG 」ポータブルWi-Fiルーターを接続

・[ DWR-PG ] パソコン接続時の起動・終了動作

・[ DWR-PG ] エネループ「KBC-L2A」で充電する

・[ DWR-PG ] ダウンロード時間を比較する (3G VS ADSL 8M)

・[ DWR-PG ] [Xperia] プラン・請求予定額内訳

・[ DWR-PG ] ハブを使って複数台のパソコンで有線接続する



xperia_090425_000b.jpg


「Xperia SO-01B」購入、初期設定をする
ソニー・エリクソンのスマートフォン「Xperia SO-01B」を購入しました。初期設定に苦労したので、設定メモなどを残しておきます。


「Xperia SO-01B」 FOMAカード(SIM)なしで無線LANを使う。
FOMAカードを取り外して、無線LANが使えるか試してみました。


[ Xperia SO-01B ] / エネループ「KBC-L2A」で充電する
*ミヤビックスのUSBケーブルを使ってエネループで充電してみました。 

XPERIA レザーケース / PDAIR レザーケース for XPERIA SO-01B 横開きタイプ Ver.2
XPERIA用のレザーケース 「PDAIR レザーケース for XPERIA SO-01B 横開きタイプ Ver.2」を購入しました。



090409_00.png


・NEC Express5800/110Ge その1
---> 2008年7月購入
---> 格安サーバーです。最安値:1台だけ買った場合は12,800円

・NEC Express5800/110Ge その2 : 解像度1920x1080
液晶モニターを新しく購入したので、どのくらいの解像度まで表示できるか確認してみました。


20090409_vga00.png
・NEC Express5800/110Ge その3 : PCI-E x1なカード:HIS H155HMF256EDDE1LN-R
NEC Express5800/110GeにPCI Express x1なカードを取り付けてみました。


pc_1051.jpg
・玄人志向 RH4350-LE256HD/HS を加工する / VGA 加工
「DELL SC440」「NEC Express5800/110Ge」用に加工しました。



・NEC Express5800/110Ge : Windows Home Server (WHS)をインストール
Windows Home Server (WHS)をインストールしてみました。

・NEC Express5800/110Ge : WOL ( Wake On Lan )
WOL ( Wake On Lan )の設定です。BIOSだけでなくOS側の設定も必要でした。

・WHS (Windows Home Server) のインストールが異常に遅い
ちょっと古い自作パソコンにインストールしたら、5時間近くかかりました。

・WHS (Windows Home Server)でクライアントのバックアップにかかる時間
ちょっと古いスペックのサーバーでクライアントのバックアップをとってみました。

・バックアップファイルが開けない謎 / WHS (Windows Home Server)
作成したバックアップファイルが開けません。何故か他のクライアントでは開けます・・・。

・W-ZERO3でWHS(Windows Home Server)を起動する / Wake On Lan
W-ZERO3でサーバーをWake On Lanで起動させてみました。



pc_1058.png
・SAA7133G-STVLPをWindows7で使用する
玄人志向のアナログキャプチャーカードの「 SAA7133G-STVLP」です。「NEC Express5800/S70 type SD」に装着してみました。 OSはWindows7です。


SDBIOS_000B2.jpg
・NEC Express5800/S70 タイプSDのCPUを交換(換装)する [E5300]
タイプSDのCPUをE5300に交換してみました。



SR8KX06B_001b.jpg
・工人舎 SR8KX06B (ミニノートパソコン)
---> 工人舎のミニノートパソコン「 SR8KX06B 」です。2010年の2月くらいに29,800円で購入しました。 7インチで小さいのですが、スーパーマルチドライブを搭載しています。


HP_001A.jpg
・HP Pavilion Notebook PC dm1 / (WJ004PA-AAAA)
---> HDDの位置

NEC-20100304-02A.jpg
・「NECLaVieLPC-LL770AD9T」のHDD交換  


2009-12-04_144746A.jpg
・「PC-WE50N (シャープ Mebius)」 のHDD交換  


080906_15ss.jpg
・DELL Latitude C510 
---> 2002年発売 / 2007年中古で購入
---> DELLノートパソコン。 HDD交換の手順など。



090409_04a.png
・東芝 DynaBook SS M4/260CRH 
---> 2001年くらいに購入
---> 東芝B5型ノートパソコン。小さいです。 HDD交換の手順など。 



090409_04b.png
・SHARP ノートパソコン / PC-FJ20 
--->1999/03
---> シャープB5型ノートパソコン。 HDD交換の手順など。 


090410_01.jpg
・SHARP ノートパソコン / Mebius PC-GP2-D7E (メビウス) 
--->2003年
--->ノートパソコン。 HDD交換の手順など。 


pc_1038.jpg
・NECノート / PC-LL5505D1Tを解体 
--->ノートパソコン。 HDD交換の手順など。 


fuji_000.jpg
・富士通「FMV-820NU」のHDD交換(換装) 
--->ノートパソコン。 HDD交換の手順など。



Toshiba_014B.jpg
・東芝 dynabook TX/2513CDSTJ のHDD交換 (PATX2513CDSTJ)  


*デスクトップ

090410_02.jpg
・DELL Optiplex GX60 
---> 2002年発売 / 2007年中古で購入
---> 法人モデルのDELLデスクトップ。 HDD交換の手順など。



090410_03.jpg
・DELL Dimension 3100C
---> 起動しないDELLマシンです。HDD交換の手順など。



090410_04.jpg
・富士通 FMV-DESKPOWER S��65 / 1997年発売
--->懐かしいデザインの富士通デスクトップ。 HDD交換の手順など。



090410_05.jpg
・EPSON 液晶一体型 PT-2000
---> 2005年中古で購入
--->コンデンサが液漏れ




090410_06.jpg
・玄箱でトラブル / NAS機器のパスワードが弾かれる  
---> 2008年購入
---> Vistaで玄箱に接続できないトラブルの対処方法



090410_07.jpg
・懐かしのZipドライブ / Fujifilm ZDR100 PRDS 
---> 1999年くらいに購入
---> 今では珍しいパラレル接続のZipドライブです。


080906_sc_01ss.jpg
・Fujitsu ScanSnap S500 / 両面カラースキャナ




20090410_pr000.png
・【A4カラーレーザープリンタ】 リコー IPSiO SP C220



20090512_000b.jpg
・日立ドットインパクトプリンター / IMPACTSTAR-SE130II その1 / 動作確認
・日立ドットインパクトプリンター / IMPACTSTAR-SE130II その2 / 設定変更
・日立ドットインパクトプリンター / IMPACTSTAR-SE130II その3 / インクリボンの交換

日立ドットインパクトプリンター / IMPACTSTAR-SE130II その4 / Windows7で使えるようにする。
http://sc440ge.blog59.fc2.com/blog-entry-147.html



090410_08.jpg
・鎌蔵5.25 KAMAZO5.25-SL / USB外付けケース (DVD) 
---> 2008年購入
---> 外付けケースに内蔵のDVDドライブを取り付けてみました。


080908_01sb.jpg
・ カセットテープからパソコンに取り込む / デジ造音楽版PCA-ACU

P1010053b.jpg
・BUFFALO(メルコ) DVSM-XL20U2 / PIONEER DVD-RW DVR-115L



P1010058b.jpg
・Acer 15型ワイド液晶ディスプレイ X153Wb



090628_000A.jpg
・パソコンを無線ルーター化してみる / WLI-UC-G (BUFFALO)


090703_000.png
・シャープ / SHARP W-ZERO3 WS003SH



[OS]

090410_09.jpg
・WindowsなOSたち Winsdows95 ~ Vista


[ソフト]

tmpg_00ss.gif
・スライドショーDVDを作る (Photo DVD) / TMPGEnc DVD Author 3
--->・リモート起動してみる 


・ウィルスバスター 2009に更新 


・Becky! Internet Mail(ベッキー)



[ホームページビルダー]
・ホームページビルダーで、「罫線に色をつける」

[オアシス(ワープロ・OASYS)を使ってみる]

080918_oa_000.gif

--> ちょっと古いですが、富士通のワードプロセッサー「オアシス」の使い方です。 使用したバージョンは2002です。

・オアシス(ワープロ・OASYS)の初期設定を変更する

・オアシス(ワープロ・OASYS)を使ってみる 1 / 新規作成
・オアシス(ワープロ・OASYS)を使ってみる 2 / 文書の更新
・オアシス(ワープロ・OASYS)を使ってみる 3 / 印刷
・オアシス(ワープロ・OASYS)を使ってみる 4 / 文書の削除
・オアシス(ワープロ・OASYS)を使ってみる 5 / 用紙の変更


[Key]
vbCrLf Chr(10) Chr(13) Application.WorksheetFunction.Max End(xlUp) ActiveCell.Row - 1 Cells(11,"B").Select Worksheet_SelectionChange UserForm Application.Wait Now() Application.Speech.Speak CreateObject("SAPI.SpVoice") voice.getdescription() Do While  TimeValue< Len vbNarrow Replace trim Until  Exit Do Like Right UBound Split vbLf ActiveSheet.Hyperlinks.Add Anchor Range GetVoices.Count voice.getdescription Item ColumnCount ColumnWidths  ColumnCount ColumnWidths Cells(10, "IV").End(xlToLeft).Column .PageSetup.PrintArea Label ComboBox CheckBox OptionButton ListBox vlookup NumberFormatLocal  Application.GoTo Reference:=Range("$B$4"), Scroll:=True ActiveSheet.ScrollArea = "A1:D65536"  Cells(1, "A").NumberFormatLocal = "yy/mm/dd" Selection.Delete Shift:=xlUp IsError Application.VLookup DoEvents Loop CriteriaRange AdvancedFilter Action:=xlFilterInPlace .SaveAs , xlCSVActiveSheet.Hyperlinks.Add Anchor:=Selection, Address< Dir(ThisWorkbook.Path & "\*") Set myRng = myData.Find(myWord, LookAt:=xlPart) Application.WorksheetFunction.Match InStr Left Mid Trim Replace StrConv vbNarrow ComboBox1.AddItem ListBox1.AddItem Like 'ActiveCell.Interior.ColorIndex = 37 Rows(ActiveCell.Row).Interior.ColorIndex = xlNone Selection.ClearContents Selection.Clear Range(Cells(myRow1, "A"), Cells(myRow2, "C")).ClearContents ActiveSheet.PageSetup.PrintArea = "$A$2:$C$10"