| 
			
			
			エクセル(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 | |