目安箱 IV

目安箱投稿のルールはこちらをごらんください。
ご意見は電子メールで承っています。
「目安箱」は質問禁止です。技術的な質問はそれぞれの質問箱へどうぞ。

迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

┃ ┃一覧表示 ┃ ┃ ┃ ┃

14 / 14 ﾍﾟｰｼﾞ

←次へ

【17】つづき

ぴかる - 02/9/2(月) 21:25 -


	引用なし

	パスワード

Sub 小技条件付き書式()

　　With Assistant.NewBalloon
　　　　.BalloonType = msoBalloonTypeBullets
　　　　.Icon = msoIconTip
　　　　.Button = msoButtonSetOK
　　　　.Heading = "{ul 1}{cf 1}《条件によって書式変更するには？》{ul 0}　　　"
　　　　.Text = String(32, "　")

　　　　.Labels(1).Text = "{cf 252}【条件付き書式を使う】" & vbLf & _
　　　　　　　　　　　　　"{cf 0}　・セルの値によって、書式設定する事が出来ます。" & vbLf & _
　　　　　　　　　　　　　"" & vbLf & _
　　　　　　　　　　　　　"　　例1) 100以上で赤字にする。" & vbLf & _
　　　　　　　　　　　　　"　　　　　セルの値が　100以上　赤字に設定" & vbLf & _
　　　　　　　　　　　　　"" & vbLf & _
　　　　　　　　　　　　　"　　例2) A1ｾﾙが空白ならで白字にする。" & vbLf & _
　　　　　　　　　　　　　"　　　　　数式が　=$A$1=""""　白字に設定" & vbLf & _
　　　　　　　　　　　　　"" & vbLf & _
　　　　　　　　　　　　　"　・条件設定は、３つまで可能です。" & vbLf & _
　　　　　　　　　　　　　"" & vbLf & _
　　　　　　　　　　　　　"{cf 2}非常に便利な機能です。さあ、使ってみよう！"
　　　　.Show
　　
　　End With

End Sub
Sub 小技入力規則()

　　With Assistant.NewBalloon
　　　　.BalloonType = msoBalloonTypeBullets
　　　　.Icon = msoIconTip
　　　　.Button = msoButtonSetOK
　　　　.Heading = "{ul 1}{cf 1}《入力規則をうまく活用するには？》{ul 0}　　　"
　　　　.Text = String(32, "　")

　　　　.Labels(1).Text = "{ul 1}{cf 2}データ→入力規則の使用例紹介{ul 0}" & vbLf & _
　　　　　　　　　　　　　""
　　　　.Labels(2).Text = "{cf 252}【リスト機能】" & vbLf & _
　　　　　　　　　　　　　"{cf 0}　・手入力ではなくリストから簡易入力する事が出来ます。" & vbLf & _
　　　　　　　　　　　　　"" & vbLf & _
　　　　　　　　　　　　　"　　{ul 1}例) 取引先社名をリストから入力する。{ul 0}" & vbLf & _
　　　　　　　　　　　　　"" & vbLf & _
　　　　　　　　　　　　　"　　　1. 取引先社名リストを入力シート内に作成する。" & vbLf & _
　　　　　　　　　　　　　"　　　　（少し外れた所に1列にて作成の事！）" & vbLf & _
　　　　　　　　　　　　　"　　　2. データ→入力規則を選択する。" & vbLf & _
　　　　　　　　　　　　　"　　　3. 入力値の種類をリストにする。" & vbLf & _
　　　　　　　　　　　　　"　　　4. 元の値を取引先社名リストセルに合わせる。" & vbLf & _
　　　　　　　　　　　　　"　　　5. [OK]をクリックにて完了。"
　　　　.Labels(3).Text = "{cf 252}【整数】" & vbLf & _
　　　　　　　　　　　　　"{cf 0}　数値入力固定箇所に用います。"
　　　　.Labels(4).Text = "{cf 252}【入力時メッセージ】" & vbLf & _
　　　　　　　　　　　　　"{cf 0}　特定のセルに合わせた時にコメント表示が出来ます。" & vbLf & _
　　　　　　　　　　　　　"" & vbLf & _
　　　　　　　　　　　　　"{cf 2}非常に便利な機能です。さあ、使ってみよう！"
　　　　.Show
　　
　　End With

End Sub
Sub 小技セルの保護()

　　With Assistant.NewBalloon
　　　　.BalloonType = msoBalloonTypeBullets
　　　　.Icon = msoIconTip
　　　　.Button = msoButtonSetOK
　　　　.Heading = "{ul 1}{cf 1}《セルの保護を活用するには、》{ul 0}　　　"
　　　　.Text = String(45, "　")

　　　　.Labels(1).Text = "{cf 252}【数式部に保護をかけ、データ部のみ入力可にするには】{cf 0}" & vbLf & _
　　　　　　　　　　　　　"　１．行列部左上角クリックもしくは、[Ctrl]+[A]にて全セル選択とする。" & vbLf & _
　　　　　　　　　　　　　"　２．セルの書式設定→保護→ロックのチェックを外す。" & vbLf & _
　　　　　　　　　　　　　"　３．保護をしたい部分（数式部）を選択する。。" & vbLf & _
　　　　　　　　　　　　　"　４．セルの書式設定→保護→ロックにチェックを入れる。" & vbLf & _
　　　　　　　　　　　　　"　５．ツール→保護→シートの保護を行う。" & vbLf & _
　　　　　　　　　　　　　"" & vbLf & _
　　　　　　　　　　　　　"{cf 2}数式の多い入力シートに使うと安心です。"
　　　　.Show
　　
　　End With

End Sub
Sub 小技データベース()

　　With Assistant.NewBalloon
　　　　.BalloonType = msoBalloonTypeBullets
　　　　.Icon = msoIconTip
　　　　.Button = msoButtonSetOK
　　　　.Heading = "{ul 1}{cf 1}《データベースを活用するには》{ul 0}　　　"
　　　　.Text = String(45, "　")

　　　　.Labels(1).Text = "{cf 252}【データベースって？】{cf 0}" & vbLf & _
　　　　　　　　　　　　　"　データベースとは、{cf 249}最上段に各種項目{cf 0}があり以下{cf 249}下段は全てデータ{cf 0}で" & vbLf & _
　　　　　　　　　　　　　"　構成されているものをいいます。" & vbLf & _
　　　　　　　　　　　　　"　　例）在庫管理台帳" & vbLf & _
　　　　　　　　　　　　　"　　　　品名　　型式　単価　在庫数　合計" & vbLf & _
　　　　　　　　　　　　　"　　　　ビデオ　 A-1　　8,000　　 5　　　40,000" & vbLf & _
　　　　　　　　　　　　　"　　　　ビデオ　 A-2　　9,000　　 3　　　27,000　" & vbLf & _
　　　　　　　　　　　　　"　　　　テレビ　 B-1　 20,000　　 7　　140,000" & vbLf & _
　　　　　　　　　　　　　"　　　　テレビ　 B-2　 50,000　　 2　　100,000" & vbLf & _
　　　　　　　　　　　　　"　　　　カメラ　　C-1　 30,000　　 3　　 60,000" & vbLf & _
　　　　　　　　　　　　　"　　　　カメラ　　C-2　 50,000　　 3　　 15,000"
　　　　.Labels(2).Text = "{cf 252}【オートフィルタ機能】{cf 0}" & vbLf & _
　　　　　　　　　　　　　"　抽出したい項目のみを表示することが出来ます。" & vbLf & _
　　　　　　　　　　　　　"　　例）テレビのみ、単価10,000以上等の表示切替等" & vbLf & _
　　　　　　　　　　　　　"　　　　オプション機能も充実しており、いろんな事が可能です。"
　　　　.Labels(3).Text = "{cf 252}【集計機能】{cf 0}" & vbLf & _
　　　　　　　　　　　　　"　データベース表示に各項目の合計等を追加表示出来ます。" & vbLf & _
　　　　　　　　　　　　　"　アウトライン（行表示切替）も自動で形成されます。"
　　　　.Labels(4).Text = "{cf 252}【ピボットテーブル】{cf 0}" & vbLf & _
　　　　　　　　　　　　　"　集計したい条件を配置して、各種集計（合計・平均・個数等）出来ます。" & vbLf & _
　　　　　　　　　　　　　"　非常に便利な機能です。ヘルプ・書籍等を参考にして下さい。"
　　　　.Labels(5).Text = "{cf 252}【データベース関数】{cf 0}" & vbLf & _
　　　　　　　　　　　　　"　演算条件を作成し、合計・個数等を求めることが出来ます。" & vbLf & _
　　　　　　　　　　　　　"　少し難しい関数です。ヘルプ・書籍等を参考にして下さい。" & vbLf & _
　　　　　　　　　　　　　"" & vbLf & _
　　　　　　　　　　　　　"{cf 2}業務で集計をされている方は、是非ともこの機能を使ってみて下さい！"
　　　　.Show
　　
　　End With

End Sub