目安箱 IV

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

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

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

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

引用なし
パスワード
   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 & _
             "  数式部の数値(答え)のみを貼り付けたい時に使用します。" & vbLf & _
             "  書式を変えずに値だけを貼り付けたい時にも使用します。"
    .Labels(2).Text = "{cf 252}【 書式の貼り付け 】{cf 0}" & vbLf & _
             "  コピー部の書式(フォント・罫線等)のみの貼り付け機能です。"
    .Labels(3).Text = "{cf 252}【 隣接セルへのコピー(オートフィル) 】{cf 0}" & vbLf & _
             "{cf 2} [ 操作方法 ]{cf 0}" & vbLf & _
             "  1.コピーしたい部分を選択する。" & vbLf & _
             "  2.セルの右下にマウスを合わせ、{cf 249}黒十字{cf 0}を表示させる。" & vbLf & _
             "  3.左クリックしながら、コピー方向へ移動する。" & vbLf & _
             "  4.終了位置で、左クリックを解除する。" & vbLf & _
             "     ・左クリック … そのままコピー(文字列に数値があると数値UPします)" & vbLf & _
             "     ・右クリック … 選択してコピー"
    .Labels(4).Text = "{cf 252}【 数値の連続(UP)コピー 】{cf 0}" & vbLf & _
             "  上記2.の操作と{cf 249}[Ctrl]{cf 0}キーONにて、{cf 249}+ {cf 0}も表示させる。" & vbLf & _
             "  以降、3.4.の操作を行う。"
    .Labels(5).Text = "{cf 252}【 セルの移動 】{cf 0}" & vbLf & _
             "{cf 2} [ 操作方法 ]{cf 0}" & vbLf & _
             "  1.移動したい部分を選択する。" & vbLf & _
             "  2.セルの下にマウスを合わせ、{cf 249}白矢印{cf 0}を表示させる。" & vbLf & _
             "  3.左クリックしながら、移動させる。" & vbLf & _
             "  4.移動位置で、左クリックを解除する。" & 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}《 1セル内に文字列を収める方法 》{ul 0}   "
    .Text = String(45, " ")

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

End Sub
Sub 小技表示形式()

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

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

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

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

    .Labels(1).Text = "{cf 252}【 範囲選択 】{cf 0}" & vbLf & _
             "{cf 2}  {ul 1}[ Shift ]キー{cf 0}{ul 0}" & vbLf & _
             "   まず、始点をクリックして{cf 249}[Shift]{cf 0}キーを押しながら終点をクリックするとその" & vbLf & _
             "   囲った範囲が選択されます。" & vbLf & _
             "{cf 2}  {ul 1}[ Ctrl ]キー{cf 0}{ul 0}" & vbLf & _
             "  {cf 249}[Ctrl]{cf 0}キーを押しながらをクリックしていくと、トビトビで範囲選択が行えます。" & vbLf & _
             "{cf 2}  {ul 1}[ データベース範囲の選択 ]{cf 0}{ul 0}" & vbLf & _
             "   データベースの1セルをクリックして、{cf 249}[Shift][Ctrl][*]{cf 0}キーを同時に押すと" & vbLf & _
             "   データベース範囲が選択されます。"
    .Labels(2).Text = "{cf 252}【 エクスプローラのファイル選択も同じ 】{cf 0}" & vbLf & _
             "  {cf 249}[Shift][Ctrl]{cf 0}キーで上記と同じやり方でファイル選択出来ます。" & vbLf & _
             "  ファイル名の少し右から、左クリックにてファイルを囲っても出来ます。"
    .Labels(3).Text = "{cf 252}【 データの各端への移動 】{cf 0}" & vbLf & _
             "  {cf 249}[Ctrl][矢印]{cf 0}キー同時ONにて端セルに移動します。"
    .Labels(4).Text = "{cf 252}【 選択範囲の同時入力 】{cf 0}" & vbLf & _
             "  範囲選択後、入力時{cf 249}[Ctrl][Enter]{cf 0}キーを同時ONにて可能です。" & 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}【 ""$""をうまく使う 】" & vbLf & _
             "{cf 2} [""$""って(相対と絶対)?]" & vbLf & _
             "{cf 0}  相対…B1セル""=A1""をB2セルにコピーすると""=A2""となります。" & vbLf & _
             "      つまり、行・列に対応した参照となります。" & vbLf & _
             "  絶対…C1セル""=$A$1*B1""をC2セルにコピーすると""=$A$1*B2""となります。" & vbLf & _
             "      つまり、{cf 249}${cf 0}を付けた部分が{cf 249}固定{cf 0}となります。" & vbLf & _
             "      左の{cf 249}${cf 0}が列用、右の{cf 249}${cf 0}が行用です。" & vbLf & _
             "{cf 2} [""$""を簡単に入力には?]" & vbLf & _
             "  {cf 249}(F4){cf 0}を押していくと{cf 249}${cf 0}位置が切替っていきます。" & vbLf & _
             "{cf 2} [まとめ]" & vbLf & _
             "{cf 0}  固定部分を見極めて、容易にコピー出来る形にしましょう。"
    .Labels(2).Text = "{cf 252}【 ""IF文""をうまく使う 】" & vbLf & _
             "{cf 2} [""IF文""って?]" & vbLf & _
             "{cf 0}  条件に対して、一致時・不一致時の処理に分ける事が出来ます。" & vbLf & _
             "  例) A1が70以上であれば○、未満であれば×は、" & vbLf & _
             "     =IF(A1>=70,""○"",""×"") となります。" & vbLf & _
             "{cf 2} [ エラーを回避するには ]" & vbLf & _
             "{cf 249}  =A1/B1{cf 0}という数式で{cf 249}B1セルが空白{cf 0}の場合は、{cf 249}#DIV/0!{cf 0}が発生します。" & vbLf & _
             "  あまりセンスが良いと言えないのでIF分で回避しましょう!。" & vbLf & _
             "  {cf 249}=IF(B1>0,A1/B1,""""){cf 0} でOK。"
    .Labels(3).Text = "{cf 252}【 便利な関数 】{cf 0}" & vbLf & _
             "  ・SUMIF … 条件に一致した合計を計算。" & vbLf & _
             "  ・VLOOKUP … 条件に一致した項目を抽出。" & vbLf & _
             "  詳しくは、ヘルプ等にて。他にも多々有りますが・・・。"
    .Show
  
  End With

End Sub

5,591 hits

【4】アドインファイルにてツールバーを表示するには、[ソフト紹介] ぴかる 02/9/2(月) 20:42 Excel[未読]
【5】マクロ構成とセット方法 ぴかる 02/9/2(月) 20:54 Excel[未読]
【6】ThisWorkbook ぴかる 02/9/2(月) 20:56 Excel[未読]
【7】標準モジュール ぴかる 02/9/2(月) 21:02 Excel[未読]
【8】セッティング ぴかる 02/9/2(月) 21:03 Excel[未読]
【9】ツールバー ぴかる 02/9/2(月) 21:06 Excel[未読]
【10】つづき ぴかる 02/9/2(月) 21:07 Excel[未読]
【11】パレート図 ぴかる 02/9/2(月) 21:08 Excel[未読]
【12】メイン ぴかる 02/9/2(月) 21:15 Excel[未読]
【13】メニューバー ぴかる 02/9/2(月) 21:19 Excel[未読]
【14】つづき ぴかる 02/9/2(月) 21:20 Excel[未読]
【15】各種マクロ ぴかる 02/9/2(月) 21:21 Excel[未読]
【16】小ワザ集 ぴかる 02/9/2(月) 21:23 Excel[未読]
【17】つづき ぴかる 02/9/2(月) 21:25 Excel[未読]
【18】つづきのつづき ぴかる 02/9/2(月) 21:25 Excel[未読]
【19】小ワザ集97 ぴかる 02/9/2(月) 21:27 Excel[未読]
【20】つづき ぴかる 02/9/2(月) 21:27 Excel[未読]
【21】つづきのつづき ぴかる 02/9/2(月) 21:28 Excel[未読]
【22】入力設定 ぴかる 02/9/2(月) 21:29 Excel[未読]
【25】文字変換 ぴかる 02/9/2(月) 21:32 Excel[未読]
【26】Class1 ぴかる 02/9/3(火) 7:57 Excel[未読]
【27】最後に ぴかる 02/9/3(火) 12:52 Excel[未読]

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