エクセル(Excel) 攻略 |
![]() (Mail待ってるよ!!) |
まなびや本舗 お気に入りに登録 |
![]() |
▲TOP ▼END ■INDEX |
注目情報
▲TOP ▼END ■INDEX
|
例題30+演習問題70でしっかり学ぶ ExcelVBA標準テキスト Excel2007/2010対応版 ページ数: 296 楽天市場で探す -> 例題30+演習問題70でしっかり学ぶExcel VBA標準テキスト |
ExcelのVBAについて詳細に書かれています。私も愛用していますが、用途別に具体例を挙げて詳細に書かれています。Excel-VBAユーザーの必携アイテムです。 |
入力形式(2003-05-24)
書式(2004-08-20)
検索
グラフ(2002-10-05)
ワンポイント(2003-03-15)
ワークシート関数(2003-10-02)
VBA(2004-12-21)
マクロ(VBA、2003-09-21)
分類 | 処理 | 定義 | コメント | |
画面表示更新禁止 | Application.ScreenUpDating = False | |||
警告&メッセージ表示禁止 | Application.displayAlters = False | |||
ワークシート表示禁止 | WorkSheets("xxxxx").visible = False | |||
シート保護解除 | ActiveSheet.UnProtect | |||
シート保護 | ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:= True | |||
カレント・フォルダ切り替え | Chdir "xxxxx" | |||
ブック・アクティブ | Windows("xxxxx").Activate | |||
ワークシート・アクティブ | Worksheets("xxxxx").Activate | selectとactiveの違いは? | ||
ワークシート選択 | Sheets("xxxx").select | |||
セル選択 | Range("A4").Select Range("A1:B2").Select Range(Cells(1,1),Cells(1,1)).Select Application.Goto Sheets("xxxx").Cells(Col, Row) |
別ワークシートのセル選択 |
||
行選択 | Rows("1:1").Sselect | |||
列選択 | Columns("A:A").Select | |||
ウインドウ選択(左上) | ActiveWindow.Panes(1).Activate | |||
オフセット・アクセス | Offset(基準,行数,列数,高さ,幅) | |||
ワークシート・クリア | Cells.ClearContents Worksheets("Sheet1").Cells.ClearContents |
|||
ワークシート追加 | Sheets.Add | |||
選択範囲のコピー | selection.copy | |||
選択範囲の貼り付け | selection.paste? | |||
選択範囲の切り取り | ||||
セル値 | Cells(1,1).Value | |||
1行削除 | ||||
1行追加 | ||||
1列削除 | ||||
1列追加 | ||||
並び替え | ||||
名前の定義 | ||||
Dim varTarget As Variant Dim objCellNo As Object ActiveWindow.Panes(4).Activate Range("A4").Select varTarget = "2003/01/01" Set objCellNo = Columns("A:A").Find(What:=varTarget, LookIn:=xlValues, _ LookAt:=xlPart) If objCellNo Is Nothing Then MsgBox varTarget & " は、" & "みつかりません", vbExclamation, "検索結果" Else MsgBox "最初に見つかったセルは " & objCellNo.Address & "です", vbInformation, "検索結果" objCellNo.Select End If |
||||
フィルター | ActiveWindow.Panes(4).Activate Range("A4").Select Selection.AutoFilter field:=1, Criteria1:=">=2003/01/01", _ Operator:=xlAnd, Criteria2:="<=2003/01/31" |
|||
フィルター解除 | ActiveSheet.ShowAllData | |||
ファイル選択 | ||||
最終行番号 | Range("A1").End(xlDown).Row | |||
最終列番号 | Range("A1").End(xlToRight).Column | |||
インターネットのHPを取得 | ||||
制御をOSに渡す | doevents() | |||
二重起動防止 | ||||
DOSコマンド起動 | shell関数使用 | |||
アプリケーション起動 | ||||
アプリケーションにキーコードを送る | expression.SendKeys(Keys, Wait) | |||
分類 | 処理 | 定義 | コメント | 更新日 |
'プログラム実行中断 '引き数 intPauseTime :中断時間(秒) '戻り値 なし Public Sub PauseTimer(intPauseTime As Integer) Dim dtmStart As Date dtmStart = Timer '中断の開始時刻を設定 Do While Timer < (dtmStart + intPauseTime) DoEvents '他のプロセスに制御を渡す Loop End Sub |
||||
カレント行とカレント列を1行とA列に表示 | ||||
シートの有無をチェック、 なければ作成。 |
||||
カレント行の特定セルに現在時刻を設定し、カレントセルに戻る。 |
Dim intRow As Integer, intColumn As Integer intRow = ActiveCell.Row intColumn = ActiveCell.Column Cells(intRow, 41) = Now() Cells(intRow, intColumn).Select |
|||
1/1000表単位の時間を取得 1/1000は信用できないので、 実用上は1/100秒。 Windowsを起動してからの経過mS。 50日弱後には0に戻る。 timeGetTime関数でも可。 (winmm.dll) |
Dim lngTime as long Declare Function GetTickCount Lib "kernel32" () As Long lngTime = GetTickCount() |
|||
VB(2002-03-31)
テクニック(2002-11-10)
ソフトウェア名 配布形式,バージョン 著作者 (更新日) コメント |
分類 | ソフトウェア1 | ソフトウェア2 | ソフトウェア3 | ソフトウェア4 | ソフトウェア5 |
ブラウザ | Sleipnir2 FW, ?.?? 著作者 (2006-01-11) タブブラウザ。 |
Lunascape FW, ?.?? 著作者 (2006-01-11) タブブラウザ。 |
現象としては、かなり時間が経過してから「DDEサーバータイムオーバー」のエラーが 出て、新規の「Excel」が起動。
対策としては、「Excel2013」の場合、「ファイル」-「オプション」で
▲TOP ▼END | ||
リンク(2004-09-09)
分類 | ホームページ名 | |
言語 | ||
ライブラリ | ||
サポート | VB5 VB6 VB5サポート情報 VB6サポート情報 | |
アプリ | Excel | |
ML | VisualBasicメーリングリスト(VBML) | |
リンク |
お勧め講座:
資格と教養のスクール フォーサイト
![]() |
▲TOP ▼END ■INDEX |