目安箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
107 / 107 ツリー ←次へ

【4】アドインファイルにてツールバーを表示するには、[ソフト紹介] ぴかる 02/9/2(月) 20:42 Excel[未読]

【19】小ワザ集97 ぴかる 02/9/2(月) 21:27 Excel[未読]
【20】つづき ぴかる 02/9/2(月) 21:27 Excel[未読]
【21】つづきのつづき ぴかる 02/9/2(月) 21:28 Excel[未読]

【19】小ワザ集97
Excel  ぴかる  - 02/9/2(月) 21:27 -

引用なし
パスワード
   Sub 小技97コピー貼り付け()

  With Assistant.NewBalloon
    .BalloonType = msoBalloonTypeBullets
    .Icon = msoIconTip
    .Button = msoButtonSetOK
    .Heading = "《 コピー・貼り付けをうまく活用するには 》"
    .Text = String(45, " ")

    .Labels(1).Text = "【 値の貼り付け 】" & vbLf & _
             "  数式部の数値(答え)のみを貼り付けたい時に使用します。" & vbLf & _
             "  書式を変えずに値だけを貼り付けたい時にも使用します。"
    .Labels(2).Text = "【 書式の貼り付け 】" & vbLf & _
             "  コピー部の書式(フォント・罫線等)のみの貼り付け機能です。"
    .Labels(3).Text = "【 隣接セルへのコピー(オートフィル) 】" & vbLf & _
             " [ 操作方法 ]" & vbLf & _
             "  1.コピーしたい部分を選択する。" & vbLf & _
             "  2.セルの右下にマウスを合わせ、黒十字を表示させる。" & vbLf & _
             "  3.左クリックしながら、コピー方向へ移動する。" & vbLf & _
             "  4.終了位置で、左クリックを解除する。" & vbLf & _
             "     ・左クリック … そのままコピー(文字列に数値があると数値UPします)" & vbLf & _
             "     ・右クリック … 選択してコピー"
    .Labels(4).Text = "【 数値の連続(UP)コピー 】" & vbLf & _
             "  上記2.の操作と[Ctrl]キーONにて、+ も表示させる。" & vbLf & _
             "  以降、3.4.の操作を行う。"
    .Labels(5).Text = "【 セルの移動 】" & vbLf & _
             " [ 操作方法 ]" & vbLf & _
             "  1.移動したい部分を選択する。" & vbLf & _
             "  2.セルの下にマウスを合わせ、白矢印を表示させる。" & vbLf & _
             "  3.左クリックしながら、移動させる。" & vbLf & _
             "  4.移動位置で、左クリックを解除する。" & vbLf & _
             "     ・左クリック … 移動" & vbLf & _
             "     ・右クリック … 各種選択" & vbLf & _
             "" & vbLf & _
             "非常に便利な機能です。操作時間短縮になりますよ!"
    .Show
  
  End With

End Sub
Sub 小技97文字表示()

  With Assistant.NewBalloon
    .BalloonType = msoBalloonTypeBullets
    .Icon = msoIconTip
    .Button = msoButtonSetOK
    .Heading = "《 1セル内に文字列を収める方法 》"
    .Text = String(45, " ")

    .Labels(1).Text = "【 自動縮小 】" & vbLf & _
             "  セルの書式設定→配置→縮小して全体を表示にチェックを入れる。"
    .Labels(2).Text = "【 セル内で文字列を折り返す 】" & vbLf & _
             "  ・セルの書式設定→配置→折り返して全体を表示にチェックを入れる。" & vbLf & _
             "  ・任意の位置で折り返す場合は、その位置で[Alt][Enter]キーを" & vbLf & _
             "   同時に押す。"
    .Labels(3).Text = "【 適正の列幅にするには 】" & vbLf & _
             " 列表示部の右境界線にてダブルクリックを行う。" & vbLf & _
             "  (最長文字列セルに合わせた列幅となります。)"
    .Labels(4).Text = "【 文字位置 】" & vbLf & _
             " ・インテンド(左空白)を使用すると見栄えがよくなります。" & vbLf & _
             " ・数字の場合は、表示形式を数値すると右に空白が出来ます。"
    .Labels(5).Text = "【 セル内の文字列を文字別にフォント設定するには? 】" & vbLf & _
             "  左クリックでの文字範囲選択にてフォント設定が可能となります。"
    .Show
  
  End With

End Sub
Sub 小技97表示形式()

  With Assistant.NewBalloon
    .BalloonType = msoBalloonTypeBullets
    .Icon = msoIconTip
    .Button = msoButtonSetOK
    .Heading = "《 表示形式をうまく活用するには? 》"
    .Text = String(40, " ")

    .Labels(1).Text = "[書式]→[セル]→[表示形式]の活用"
    .Labels(2).Text = "【 数値 】" & vbLf & _
             "  データセルを数値にするだけで、若干右に空白が出来ます。" & vbLf & _
             "  見栄えにこだわる方にお勧めです。"
    .Labels(3).Text = "【 日付 】" & vbLf & _
             "  沢山の中から、好みの形式に選択出来ます。" & vbLf & _
             "  ユーザー定義にて更に設定可能です。"
    .Labels(4).Text = "【 ユーザー定義 】" & vbLf & _
             " [曜日を付ける]" & vbLf & _
             "  aaaa-火曜日 aaa-火" & vbLf & _
             "  dddd-Tuesday ddd-Tue" & vbLf & _
             "  例) 7/31(水)と表示するには、m/d""(""aaa"")""と入力する。" & vbLf & _
             " [数値単位をつける]" & vbLf & _
             "  0""台"" 0""個"" と入力でOK。" & vbLf & _
             "  文字列の場合は、@を使用します。"
    .Show
  
  End With

End Sub
Sub 小技97シフトコントロール()

  With Assistant.NewBalloon
    .BalloonType = msoBalloonTypeBullets
    .Icon = msoIconTip
    .Button = msoButtonSetOK
    .Heading = "《 [Shift][Ctrl]キーをうまく活用するには 》"
    .Text = String(45, " ")

    .Labels(1).Text = "【 範囲選択 】" & vbLf & _
             "  [ Shift ]キー" & vbLf & _
             "   まず、始点をクリックして[Shift]キーを押しながら終点をクリックするとその" & vbLf & _
             "   囲った範囲が選択されます。" & vbLf & _
             "  [ Ctrl ]キー" & vbLf & _
             "  [Ctrl]キーを押しながらをクリックしていくと、トビトビで範囲選択が行えます。" & vbLf & _
             "  [ データベース範囲の選択 ]" & vbLf & _
             "   データベースの1セルをクリックして、[Shift][Ctrl][*]キーを同時に押すと" & vbLf & _
             "   データベース範囲が選択されます。"
    .Labels(2).Text = "【 エクスプローラのファイル選択も同じ 】" & vbLf & _
             "  [Shift][Ctrl]キーで上記と同じやり方でファイル選択出来ます。" & vbLf & _
             "  ファイル名の少し右から、左クリックにてファイルを囲っても出来ます。"
    .Labels(3).Text = "【 データの各端への移動 】" & vbLf & _
             "  [Ctrl][矢印]キー同時ONにて端セルに移動します。"
    .Labels(4).Text = "【 選択範囲の同時入力 】" & vbLf & _
             "  範囲選択後、入力時[Ctrl][Enter]キーを同時ONにて可能です。" & vbLf & _
             "" & vbLf & _
             "ショートカットキーは他にも多々あります。興味のある方は調べてみて下さい。"
    .Show
  
  End With

End Sub
Sub 小技97関数()

  With Assistant.NewBalloon
    .BalloonType = msoBalloonTypeBullets
    .Icon = msoIconTip
    .Button = msoButtonSetOK
    .Heading = "《 ちょっとした関数テクニック 》"
    .Text = String(45, " ")

    .Labels(1).Text = "【 ""$""をうまく使う 】" & vbLf & _
             " [""$""って(相対と絶対)?]" & vbLf & _
             "  相対…B1セル""=A1""をB2セルにコピーすると""=A2""となります。" & vbLf & _
             "      つまり、行・列に対応した参照となります。" & vbLf & _
             "  絶対…C1セル""=$A$1*B1""をC2セルにコピーすると""=$A$1*B2""となります。" & vbLf & _
             "      つまり、$を付けた部分が固定となります。" & vbLf & _
             "      左の$が列用、右の$が行用です。" & vbLf & _
             " [""$""を簡単に入力には?]" & vbLf & _
             "  (F4)を押していくと$位置が切替っていきます。" & vbLf & _
             " [まとめ]" & vbLf & _
             "  固定部分を見極めて、容易にコピー出来る形にしましょう。"
    .Labels(2).Text = "【 ""IF文""をうまく使う 】" & vbLf & _
             " [""IF文""って?]" & vbLf & _
             "  条件に対して、一致時・不一致時の処理に分ける事が出来ます。" & vbLf & _
             "  例) A1が70以上であれば○、未満であれば×は、" & vbLf & _
             "     =IF(A1>=70,""○"",""×"") となります。" & vbLf & _
             " [ エラーを回避するには ]" & vbLf & _
             "  =A1/B1という数式でB1セルが空白の場合は、#DIV/0!が発生します。" & vbLf & _
             "  あまりセンスが良いと言えないのでIF分で回避しましょう!。" & vbLf & _
             "  =IF(B1>0,A1/B1,"""") でOK。"
    .Labels(3).Text = "【 便利な関数 】" & vbLf & _
             "  ・SUMIF … 条件に一致した合計を計算。" & vbLf & _
             "  ・VLOOKUP … 条件に一致した項目を抽出。" & vbLf & _
             "  詳しくは、ヘルプ等にて。他にも多々有りますが・・・。"
    .Show
  
  End With

End Sub

【20】つづき
Excel  ぴかる  - 02/9/2(月) 21:27 -

引用なし
パスワード
   Sub 小技97条件付き書式()

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

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

End Sub
Sub 小技97入力規則()

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

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

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

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

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

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

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

    .Labels(1).Text = "【 データベースって? 】" & vbLf & _
             "  データベースとは、最上段に各種項目があり以下下段は全てデータで" & 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 = "【 オートフィルタ機能 】" & vbLf & _
             "  抽出したい項目のみを表示することが出来ます。" & vbLf & _
             "   例)テレビのみ、単価10,000以上等の表示切替等" & vbLf & _
             "     オプション機能も充実しており、いろんな事が可能です。"
    .Labels(3).Text = "【 集計機能 】" & vbLf & _
             "  データベース表示に各項目の合計等を追加表示出来ます。" & vbLf & _
             "  アウトライン(行表示切替)も自動で形成されます。"
    .Labels(4).Text = "【 ピボットテーブル 】" & vbLf & _
             "  集計したい条件を配置して、各種集計(合計・平均・個数等)出来ます。" & vbLf & _
             "  非常に便利な機能です。ヘルプ・書籍等を参考にして下さい。"
    .Labels(5).Text = "【 データベース関数 】" & vbLf & _
             "  演算条件を作成し、合計・個数等を求めることが出来ます。" & vbLf & _
             "  少し難しい関数です。ヘルプ・書籍等を参考にして下さい。" & vbLf & _
             "" & vbLf & _
             "業務で集計をされている方は、是非ともこの機能を使ってみて下さい!"
    .Show
  
  End With

End Sub

【21】つづきのつづき
Excel  ぴかる  - 02/9/2(月) 21:28 -

引用なし
パスワード
   Sub 小技97マクロ()

  With Assistant.NewBalloon
    .BalloonType = msoBalloonTypeBullets
    .Icon = msoIconTip
    .Button = msoButtonSetOK
    .Heading = "《 マクロ 》"
    .Text = String(45, " ")

    .Labels(1).Text = "【 マクロって? 】" & vbLf & _
             "  マクロとは、通常手動で行っている操作を自動で行うプログラムのことです。"
    .Labels(2).Text = "【 どういう時に使うと便利? 】" & vbLf & _
             "  毎日、ひとつのブックで同じ操作を行っている項目があると思います。" & vbLf & _
             "  例えば、データのクリア・印刷等です。このような操作をもっと容易に" & vbLf & _
             "  行いたいと思った方は、是非ともマクロを使うべきです。"
    .Labels(3).Text = "【 どうやって作るの? 】" & vbLf & _
             "  マクロの記録という非常に便利な機能があります。これは、実際の操作を" & vbLf & _
             "  自動的にプログラム化してくれる機能です。マクロって難しいそうと思う" & vbLf & _
             "  前にやってみましょう。"
    .Labels(4).Text = "【 マクロボタンを作ってみよう! 】" & vbLf & _
             "  それでは、シート上にボタンを設置してマクロを登録してみましょう。" & vbLf & _
             "   1.マクロ化したい操作をまとめる。" & vbLf & _
             "   2.ツールバー右の方のボタンをクリックしてシート上に設置する。" & vbLf & _
             "   3.マクロの登録にて記録をオンにする。" & vbLf & _
             "   4.実際の操作を行う。" & vbLf & _
             "   5.ツールバーのボタン2個右横の記録終了をオンにする。" & vbLf & _
             "   6.マクロボタンを押して、動作を確認する。"
    .Labels(5).Text = "【 マクロを編集するには? 】" & vbLf & _
             "  ツールバー右端のVisual Basic Editorにて編集が出来ます。" & vbLf & _
             "  詳しい内容は、書籍等を参考にして下さい。" & vbLf & _
             "" & vbLf & _
             "興味を持たれた方は、トライしてみましょう!"
    .Show
  
  End With

End Sub

Sub 小技97おまけ()

  With Assistant.NewBalloon
    .BalloonType = msoBalloonTypeBullets
    .Icon = msoIconTip
    .Button = msoButtonSetOK
    .Heading = "《 おまけ 》   "
    .Text = String(40, " ")

    .Labels(1).Text = "【 折れ線グラフの数値の無い部分をつなぐには? 】" & vbLf & _
             "  データ空白部を#N/Aにすると直線でつなぐことが出来ます。"
    .Labels(2).Text = "【 オプションの表示切替機能 】" & vbLf & _
             "  [行列番号][スクロールバー ][枠線][シート名][0表示]等の" & vbLf & _
             "  表示切替が、可能です。見栄えにこだわる方にお勧めです。"
    .Labels(3).Text = "【 検索機能 】" & vbLf & _
             "  [編集]→[検索]" & vbLf & _
             "  検索したい文字入力にて同シート内での検索が可能となります。"
    .Labels(4).Text = "【 置換機能 】" & vbLf & _
             "  [編集]→[置換]" & vbLf & _
             "  変更前の文字と変更後の文字入力にて置換が可能となります。" & vbLf & _
             "   [A1→B1]  検索文字…A  置換文字…B" & vbLf & _
             "   [A_A→AA]  検索文字…_  置換文字…無" & vbLf & _
             "     ↑スペースの削除 "
    .Labels(5).Text = "【 文字列を任意位置にて分割するには 】" & vbLf & _
             "  [データ]→[区切り位置]→[スペースによって・・・]を選択。" & vbLf & _
             "  分割したい位置をマウスにて区切って実行すると分割されます。" & vbLf & _
             "  右セルは空白である事とします。 "
    .Show
  
  End With

End Sub

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
107 / 107 ツリー ←次へ
ページ:  ┃  記事番号:   
0
(SS)C-BOARD v3.8 is Free