商学部卒の理系ヲタク。の知的生産ブログ

経営学や会社法やエクセルVBAやそのほか興味のあること

エクセルとVBA

[ リスト | 詳細 ]

記事検索
検索

全1ページ

[1]

エクセルショートカットキー一覧

いやぁ、ほんとびっくりするほどありますね。
絶対使いこなせません。。。

No. Ctrl Alt Shift 他のキー 機能 機能
1 Ctrl 0 列を非表示にする （テンキー不可）
2 Ctrl Shift 0 非表示の列を再表示 （テンキー不可）
3 Ctrl 1 ［書式設定］ダイアログの表示 （テンキー不可）
4 Ctrl 2 ［太字］の設定・解除 （テンキー不可）
5 Ctrl 3 ［斜体］の設定・解除 （テンキー不可）
6 Ctrl 4 ［下線］の設定・解除 （テンキー不可）
7 Ctrl 5 取り消し線の設定・解除 （テンキー不可）
8 Ctrl 8 アウトライン記号の表示・非表示 （テンキー不可）
9 Ctrl 9 行を非表示にする （テンキー不可）
10 Ctrl Shift 9 非表示の行を再表示 （テンキー不可）
11 Ctrl A 全て選択
12 Ctrl B ［太字］の設定・解除
13 Ctrl C ［コピー］の実行
14 Ctrl D 上のセルのコピー＆貼り付け
15 Ctrl F ［検索（と置換）］ダイアログの表示
16 Ctrl G ［ジャンプ］ダイアログの表示
17 Ctrl H ［（検索と）置換］ダイアログの表示
18 Ctrl I ［斜体］の設定・解除
19 Ctrl K ［ハイパーリンクの挿入］ダイアログの表示
20 Ctrl N ブックの新規作成
21 Ctrl O ［ファイルを開く］ダイアログの表示
22 Ctrl P ［印刷］ダイアログの表示
23 Ctrl R 左のセルのコピー＆貼り付け
24 Ctrl S ［上書き保存］の実行
25 Ctrl U ［下線］の設定・解除
26 Ctrl V ［貼り付け］の実行
27 Ctrl W ［閉じる］の実行
28 Ctrl X ［切り取り］の実行
29 Ctrl Y 直前の操作の繰り返し
30 Ctrl Z 直前の操作を元に戻す
31 Alt Shift ' ［スタイル］ダイアログの表示 （シングルクオーテーション）
32 Ctrl - セル・行・列の削除
33 Alt Shift = SUM関数を挿入
34 Ctrl Shift ! ［桁区切り］スタイルを設定
35 Ctrl Shift # ［日付］スタイルを設定
36 Ctrl Shift $ ［通貨］表示スタイルを設定
37 Ctrl Shift % ［パーセント］スタイルを設定
38 Ctrl Shift & ［外枠］罫線を設定
39 Ctrl Shift * データが入力されている範囲を選択 （テンキーの［*］なら［Shift］不要）
40 Ctrl : 現在の時刻を入力 （コロン）
41 Ctrl ; 今日の日付を入力 （セミコロン）
42 Ctrl @ ［時刻］スタイルを設定
43 Ctrl Shift _ 罫線の削除 （アンダーバー）
44 Ctrl Shift ~ 日付データのシリアル値表示 （チルダ）
45 Ctrl + セル・行・列の挿入
46 Ctrl BackSpace アクティブセルの表示
47 Ctrl End 最後のセルにジャンプ
48 Ctrl Shift End アクティブセルから最後のセルまで選択
49 Ctrl Enter 複数セルに同じデータの入力
50 Ctrl Home 先頭のセルにジャンプ
51 Ctrl PageDown 次のシートを表示
52 Ctrl PageUp 前のシートを表示
53 Ctrl スペース 列を選択
54 Shift スペース 行を選択
55 Ctrl ↑↓←→ データの途切れるセルにジャンプ
56 Ctrl Shift ↑↓←→ データの途切れるセルまで選択
57 Alt ↓ リストの表示
58 F1 ヘルプ・Officeアシスタントの表示
59 Shift F1 ポップヒントの表示
60 Alt F1 新規グラフシートへグラフの作成
61 F2 編集モードへの切り替え
62 Shift F2 コメントの挿入
63 Ctrl F3 ［名前の定義］ダイアログの表示
64 F4 相対・絶対・複合参照の切り替え
65 Alt F4 Excelの終了
66 F5 ［ジャンプ］ダイアログの表示
67 F7 ［スペルチェック］の実行
68 F8 拡張モードへの切り替え
69 Shift F8 ADOモードへの切り替え
70 Alt F8 ［マクロ］ダイアログの表示
71 F9 開いているブックの再計算を実行
72 Shift F9 アクティブワークシートの再計算を実行
73 F11 新規グラフシートへグラフの作成
74 Shift F11 新規シートの挿入
75 Alt F11 Visual Basic Editorの起動
76 F12 ［名前を付けて保存］ダイアログの表示
77 Shift F12 ［上書き保存］の実行
78 Ctrl F12 ［ファイルを開く］ダイアログの表示

開く トラックバック（0）

エクセルVBAからGoogle検索

今回はエクセルからGoogle検索を行うマクロです。

このマクロはエクセル上で選択したセルに入力されている文字列をGoogleに検索させるというものです。

ただし、選択できるセルは１つだけです。

今回も三流君VBA
http://www.ken3.org/vba/
を参考にしました。

Sub Google検索()

Dim objIE As Object 'ＩＥオブジェクト
Dim kensakugyou as long
Dim kensakuretu as long

kensakugyou = Selection.Row
kensakuretu = Selection.Column

'IEを起動する
Set objIE = CreateObject("InternetExplorer.application") 'IEのオブジェクトを作る
objIE.Visible = True '見えるようにする

objIE.Navigate "http://google.co.jp" '.Navigate で 指定したURLを開く


'表示終了まで待つ .Busy(忙しい)間 と.ReadyState(ステータス)が４以外の時 ループ
Do While objIE.Busy = True
DoEvents '特に何もしないで.Busyの状態が変わるまで待つ
Loop
Do While objIE.ReadyState <> 4
DoEvents '特に何もしないで.ReadyStateの状態が４に変わるまで待つ
Loop

objIE.Document.forms(0).Item("q").Value = Cells(kensakugyou, kensakuretu)


Do While objIE.Busy = True
DoEvents '特に何もしないで.Busyの状態が変わるまで待つ
Loop
Do While objIE.ReadyState <> 4
DoEvents '特に何もしないで.ReadyStateの状態が４に変わるまで待つ
Loop

objIE.Document.forms(0).submit

End Sub

開く トラックバック（0）

VBAを学ぶ最初の1歩

イメージ 1

大村あつし (2004)『かんたんプログラミング Excel2003 VBA 基礎編』技術評論社


エクセルVBAを学ぼうと思うけど、参考書がありすぎて困るという人が多いと思います。

そういう人にはこの本をおすすめします。私もいろいろなVBAの本を読みましたが
最初に学ぶのにこれほど最適な本はほかにないと思います。
それほどおすすめできる良書です。


説明はかゆいところまで手が届き、初心者がつまづくであろうポイントにも気を配っています。
この本でVBAの基礎を身につければVBAの考え方にも随分慣れていることができると思います。
そのころにはずいぶん思い通りのことができるようになると思います。
何よりあとは独力でVBAを学べるのに十分な地力が身に付いているはずです。

この本はシリーズで他に2冊存在します。
☆コントロール関数編
☆応用編
状況に応じで読み進めて行けばよいと思います。

開く トラックバック（0）

VBAでネット上の情報を自動取得する

以下の内容は
三流君VBA
http://www.ken3.org/cgi-bin/group/vba_ie.asp
を参考に私がアレンジしたものです。


<用途>
ネット上にあるコンテンツで、ディレクトリが分けられているが表示方法が統一のデータを一括で手に入れたいときに使う。
例えば、国交省行政処分
http://www3.mlit.go.jp/cgi-bin/searchmenu.cgi?jigyoubunya=kensetugyousya
に含まれるすべての情報を自動的に手に入れる場合などに使用します。


<使い方>
�．┘�セルシートの１列に情報を取得したいアドレスを入力しておく

�△修離▲疋譽垢離曄璽爛據璽犬亡泙泙譴襯謄�ストをそのアドレスのある行の右のセル（３列目から）にどんどん書き出していく

��とりあえず、書き出したあとデータを加工する。


Dim objIE As Object　　　'ＩＥオブジェクト
Dim i As Integer　　　　　’繰り返し用の変数
Dim yline As Integer 　　'検索結果を貼り付ける列
Dim objA As Object

Sub ネット上の情報取得()
　　Application.ScreenUpdating = False
　　Set objIE = CreateObject("InternetExplorer.application")
　　objIE.Visible = True
　　For i = 1 To cells(rows.count,1).end(xlup).row
　　　　objIE.Navigate Cells(i, 1)
　　　　IEを待つ
　　　　yline = 3 'セット開始の列を代入する
　　　　For Each objA In objIE.Document.Body.All
　　　　　　If yline = 3 Then
　　　　　　　　Cells(i, 4) = Left(objA.innertext, 500)
　　　　　　　　Exit For
　　　　　　　　End If
　　　　　　yline = yline + 1 'セット位置(列)を＋1する
　　　　Next
　　Next i
　　Application.ScreenUpdating = True
　　objIE.Quit
End Sub

Sub IEを待つ()
　　Do While objIE.Busy = True
　　　　DoEvents
　　Loop
　　Do While objIE.ReadyState <> 4
　　　　DoEvents
　　Loop
End Sub

開く トラックバック（0）

VBA左端列を捕まえる。

イメージ 1

よく忘れてしまうので備忘記録をのこしておきます。

Sub 右端列を捕まえる()
Dim rihgt_end As Integer '右端列を納める変数

right_end = Cells(1, Columns.Count).End(xlToLeft).Column

MsgBox right_end

End Sub

開く トラックバック（0）

全1ページ

[1]

Yahoo!ブログからのお知らせ

よしもとブログランキング

もっと見る

プライバシー -  利用規約 -  メディアステートメント -  ガイドライン -  順守事項 -  ご意見・ご要望 -  ヘルプ・お問い合わせ

Copyright (C) 2019 Yahoo Japan Corporation. All Rights Reserved.

みんなの更新記事
前へ 次へ