VBAについて質問です。
/////////////////////
Sub sample1(a As String)
a = "abc"
MsgBox a
End Sub
---------------------
Sub sample2()
Dim a As String
a = "abc"
MsgBox a
End Sub
/////////////////////
sample1とsample２の違いは何でしょうか？
どちらも標準モジュールに記載しました。
sample2はF5で実行できますが、sample１はF5を押しても何も起きません。
それだけの違いでしょうか？
Sample1の使い道がわかりません。
/////////////////////
Option Explicit
Sub sample2()
Call sample1
End Sub
---------------------
Sub sample1(a As String)
a = "abc"
MsgBox a
End Sub
/////////////////////
にしたら、
「引数は省略できません。(Error 449)」というコンパイルエラーになりました。
ｖｂａです。
フォルダ（新しいフォルダ）を作り、その中にサブフォルダ（Test用フォルダ）を作って
---------------------------------------------------------
Sub フォルダの中身がカラか調べる()
If Dir("D:\新しいフォルダ\Test用フォルダ\*.*") = "" Then
MsgBox "カラです"
Else
MsgBox "カラではありません"
End If
End Sub
---------------------------------------------------------
を実行すると、新しいフォルダの中にフォルダがあるのに、
「カラです」が表示されてしまいます。
新しいフォルダのファイルサイズは0です。
If Dir("D:\新しいフォルダ\Test用フォルダ\*.*") = "" Then
のコードは、フォルダの中のファイル数ではなく、
フォルダのサイズを取得してしまうのでしょうか？
２ページ目に表の挿入を使って目次を作成済です。その表の一部にコマンドボタンを設置して、それをクリックしたら、該当ページに移動するようなマクロは組めるのでしょうか？？検索のキーはコマンドボタンの名称と３ページ以降に各ページに存在するオブジェクトに書かれている名称です。
Private Sub cmdA001_Click()'コマンドボタンcmd001のCaptionは「A001」です。
'３ページ目から最終ページまで検索
'挿入の図形のテキスト「A001」を検索して、そのページに移動
End Sub
WINDOWS 2000を使用しています。
MS ACCESSをインストールしたいのですが、どのバージョンであれば快適に使用できますか？
会社のシステム担当が頭固くてWINDOWS2000しか会社で使わせないとのことです。
ACCESSのヴァージョンは何種類か持っているらしく、互換性が分からず質問いたします。
Excel VBAの質問です。
コンボボックスで選択した文字列とSheet1のＣ列の文字列が一致したら、
その行を新規ブックのSheet1にコピーしたいのですが、うまくできません。
新規ブックは開くのですが、データはコピーされていません。
既存ブックのSheet2にはコピーできるので、たぶん、新規ブックのSheet1へコピーという
命令がうまくかけていないのだと思います。
書籍やネットで調べてもよく分かりませんでした。
大変困っているので、どなたかご教授ください。よろしくお願いします。
元のSheet1は以下のようにデータが入力されています。
例えば、コンボボックスで「めがね」と選択されたら、1，4，5行目のC列と一致するので
それらの行を新規ブックにコピーしたいのです。
A B C D
-----------------------------
1|10 10:00 めがね 保管中
2|11 12:00 衣服 倉庫
3|12 13:00 自転車 保管中
4|13 11:00 めがね 保管中
5|14 13:00 めがね 倉庫
Private Sub Search_Click()
Dim SearchWord As String
Dim gyou As Long
Dim word As String
Dim LastRow As Long
Dim count As Integer
Dim baseBook As Workbook
Dim newBook As Workbook
Dim baseSheet As Worksheet
Dim newSheet As Worksheet
SearchWord = cmbsSyutokubutu_search.Text
Set baseBook = ThisWorkbook
Set baseSheet = baseB.Worksheets("Sheet1")
baseSheet.Activate
With Worksheets("Sheet1")
count = 0
gyou = 4
LastRow = baseSheet.Cells(Rows.count, 5).End(xlUp).Row
Set newB = Workbooks.Add
Set newS = newBook.Worksheets("Sheet1")
Do While Cells(gyou, 3) <> ""
word = Cells(gyou, 3)
If InStr(word, SearchWord) >= 1 Then
Rows(gyou).Copy newBook.Cells(Rows.count, 1).End(xlUp).Offset(1, 0)
End If
gyou = gyou + 1
Loop
End With
End Sub
