アクセス2003なのですが
「色を青にして太字に」するにはどうすればいいでしょうか？
Sub 条件付書式()
With Form_フォーム1.テキスト2
.ForeColor = RGB(255, 255, 255)
With .FormatConditions
.Delete
.Add(acExpression, , "[テキスト2]=""青にする""").ForeColor = 16711680 '青
End With
End With
End Sub
で青にはなるのですが
青なおかつ太字にするにはどうすればいいでしょうか？
FontStyle プロパティを使うのでしょうか？
書き方を教えてください。
かなり昔の質問を引っ張り出しますがご容赦ください
http://oshiete1.goo.ne.jp/qa4158345.html
のように
今度はフォームを閉じたいのですが
Sub 全てのフォームを閉じる()
Dim フォーム As DAO.QueryDef
For Each フォーム In CurrentDb().FormDefs
DoCmd.Close acForm, フォーム.Name
Next
End Sub
で、デバッグすると
「.FormDefs」の部分が
”コンパイルエラー メソッドまたはデータ メンバが見つかりません。 (Error 461)”
になってしまいます。
Sub QueryAllClose()
Dim Q As DAO.QueryDef
For Each Q In CurrentDb().QueryDefs
DoCmd.Close acQuery, Q.Name
Next
End Sub
は問題なく行なえます。
フォームは不可能なのでしょうか？
アクセスのフォームで、品番一覧というテーブルを基にした、F品番一覧というフォームがあります。
ヘッダー部に検索するコンボボックスがあり、品番一覧テーブルの品番を参照しています。
検索ボタンを押すと、コンボボックスの内容に当てはまるものが、フォームの詳細部に一覧として表示させる様にしたのですが、品番に"50＃1"や"50#2"という#を使い、1と2を分けている物があるのですが、コンボボックスで、この＃が付いた物で検索すると検索結果がなにも表示されません。＃が付いていない物はちゃんと一覧が表示されます。
＃が付いている場合でもちゃんと表示するにはどの様にしたら良いですか？テーブル側の＃を取り除く事はできません。
検索ボタンのコードは
Private Sub 検索_Click()
Dim strFilter As String, strExp As String, aryOpe As Variant
If Not IsNull(Me.txt氏名) Then
strFilter = strFilter & " AND 品番 Like *" & Me.品番一覧 & "*"
End If
Me.Filter = Mid(strFilter, 5)
If strFilter = "" Then
Me.FilterOn = False
Else
Me.FilterOn = True
End If
となっています。
うまく説明できなくてすいませんが、誰か教えて頂けませんか？
よろしくお願いします。
End Sub
VBAでAccessからExcelファイルを
ダイアログで選択して開き転記をさせたい。
以下のように書いてみるとダイアログ表示までは
出るのですが、Excelは起動しません、
何かが足りないとは思うのですが
ご指摘、ご教授お願いします。
Sub test2()
Dim objxls
Set objxls = CreateObject("excel.application")
Dim myfile
Dim xls
myfile = objxls.Application.getopenfilename()
Set xls = objxls.workbooks.Open(myfile)
Sub test()
Dim i As Long
On Error GoTo エラーのとき
i = "a"
エラー終了:
Exit Sub
エラーのとき:
MsgBox "エラーです"
Resume エラー終了
End Sub
このような簡単なエラー処理のフ゜ロク゛ラムで「Resume」を記載するときに
Ctrl+Jを押して「res」を打ってもヒントが出ません。
(Resetしかでません)
オブジェクトブラウザで「Resume」を検索しても
ヒットしません。
だからヒントでもでないのでしょうか?
1000kbほどのエクセルデータに対して、任意の文字列を含んだ行を抽出したいです。
ツールのフィルタの適用をしてもいいのですが、テキストボックスを出現させるだけで、かなりのラグ(5-6秒）があります。
そこでマクロを組んでさくさく作業を使用と思ったのですが、うまくいきません。解決法を提示して頂くと助かります。
以下、記述したものです。
----------------------------------------------------------------
Sub フィルタ()
Dim myR As String
Dim Filter As String
myR = Application.InputBox(prompt:="抽出語", Type:=2)
ActiveSheet.Columns(1).AutoFilter Field:=1, Criteria1:="=*myR*"
End Sub
----------------------------------------------------------------
