Sub test1()
Dim myStr As String
myStr = "abc"
Debug.Print Asc("a")
Debug.Print Asc(myStr)
End Sub
このコードは、どちらも97が返るのですが、
myStrは3文字です。
3文字全ての文字コードを返すには、
Sub test2()
Dim myStr As String
myStr = "abc"
Debug.Print Asc(Mid(myStr, 1, 1)) & Asc(Mid(myStr, 2, 1)) & Asc(Mid(myStr, 3, 1))
End Sub
のようにするしかないのでしょうか？
あるexcelファイル（ブック名「自動操作.xlsm」）からべつのexcelファイル（ブック名「a.xlsm」）というファイルを実行するマクロを組んでいます。
Application.Runを用いて「自動操作.xlsm」のコードを以下のように記述しました。
※「\」は半角の円マークだと考えてくれればいいです。ここで半角の円マークをかいても\と表示されます。また、自動操作とaは同じディレクトリにあります。
Sub Test1()
Application.Run "'C:Users\ディレクトリ名\a.xlsm'!test"
End Sub
また、「a.xlsm」は以下のように記述しました。
Sub test()
Dim i As Integer
For i = 1 To 5
'移動元ファイルパスの設定
Cells(i, 1) = i
Next
End Sub
ただ１～５行にその行数を記入するマクロです。
a.xlsmを開いた状態でこれを実行すると、「アプリケーション定義またはオブジェクト定義のエラーです」とでます。
a.xlsmを閉じた状態で実行すると、「このブックでマクロが使用できないか、またはすべてのマクロが無効になっている可能性があります」とでます。
いったいなにを間違えているのでしょうか。
エクセルの勤務表から、日付別に出勤者とその出勤者の勤務を抜き出すマクロを作りたいのですが、途中で分からなくなってしまい困っています。
初めまして。私はマクロを初めてまだ、２ヶ月の初心者でございます。
質問内容に、不手際がありましたら、ご容赦ください。
勤務表マスタには勤務表があり、それ以外にsheet1 からsheet30まで、３０枚のシートを用意しておき、日付別にsheet1に４月１日の勤務者とその出勤者の勤務を（早番はB3から下に表示し、遅番はB8下に表示するようにします。）抜き出し、同じようにしてsheet2には、４月２日の勤務者とその出勤者の勤務を、同じように、それぞれB３とB８に抜き出し…というように、３０日分抜きだしたいのです。休みの人は表示しません（画像写真を参照願います。見にくい写真で恐縮でございます。）
＜勤務表マスタ＞
名前 4月1日 4月2日 4月3日 4月4日…
坂本 遅番 早番 遅番 休み…
井端 早番 休み 早番 遅番…
長野 遅番 早番 早番 早番…
阿部 遅番 遅番 遅番 早番…
村田 休み 早番 遅番 遅番…
高橋 早番 遅番 休み 遅番…
＜sheet1=４月１日＞
（B3、C3から下に）
井端 早番
高橋 早番
（B8、C8から下に）
坂本 遅番
長野 遅番
まずは、勤務表から４月１日だけをとりあえず抜き出そうと、マクロを作って、勤務表マスタから、sheet1である、４月１日には、転記できたのですが、同じように、sheet2(４月2日)、 sheet3(４月3日)…と勤務表マスタから、各シートに転記するには、どうすれば良いのか？分からなくなってしまいました。
力技で、このマクロの「Sheet1」の部分を「Sheet2」にするようにしてといった感じで、あと３０個書けば、できるような気もしますが、膨大な行数になりますし、何か他の方法をと考えたのですが、まだまだ、初心者で、どうすれば良いのか全く思いつきません。ここまで、インターネットで調べたりして、何とか作ったもので、全く幼稚なマクロかと思いますが、なにとぞ、ご鞭撻のほど、よろしくお願い致します。
Public Sub test()
Dim strSerch1 As String
Dim strSerch2 As String
Dim LastRow As Long
Dim i As Long, j As Long, k As Long
'検索する文字を以下の二つの変数に代入
strSerch1 = "早番"
strSerch2 = "遅番"
'Sheet1に「早番」の人をリスト化するための変数を設定
'最初に入れるのが3行目なのでjに3を代入
j = 3
With Worksheets("勤務表マスタ")
'.Cells(.Rows.Count, 1).End(xlUp).Rowで最後の行がどこなのか調べて
'LastRow変数に代入する。
LastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
For i = 2 To LastRow
'ここで2列目を検索して、「早番」の人がいたら、Sheet1の３行目から、リスト化する。
If .Cells(i, 2).Value = strSerch1 Then
Worksheets("Sheet1").Cells(j, 2).Value = .Cells(i, 1).Value
Worksheets("Sheet1").Cells(j, 3).Value = .Cells(i, 2).Value
j = j + 1
End If
Next i
End With
'Sheet1に「遅番」の人をリスト化するための変数を設定
'最初に入れるのが8行目なのでkに8を代入
k = 8
With Worksheets("勤務表マスタ")
LastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
For i = 2 To LastRow
'ここで2列目を検索して、「遅番」の人がいたら、Sheet1の８行目から、リスト化する。
If .Cells(i, 2).Value = strSerch2 Then
Worksheets("Sheet1").Cells(k, 2).Value = .Cells(i, 1).Value
Worksheets("Sheet1").Cells(k, 3).Value = .Cells(i, 2).Value
k = k + 1
End If
Next i
End With
End Sub
以下のような表があって、その中から条件に一致する行を削除したいのですが、
よくわからず困っています。
A B C D E
1 No, 伝票種類 管理No, 日付 部署
2 1 A伝票 16-001 15/8/29 営業課
3 2 B伝票 16-021 15/10/11 販促課
4 3 A伝票 16-009 15/9/10 広報課
この表で、
F1セルに「削除する伝票種類」、
F2セルに「管理No,」を入力した後、
シート上に作成したコマンドボタンをクリックすると該当するナンバーの伝票種類、管理No,、部署を削除するようにしたいのです。
For i = 2 To cells(Rows.count, 1 ).End(xlUp).Row
IF cells(i, 2) = Range("F1").value And cells(i,3) = Range("F2").value Then
Range(cells(i , 2) , cells( i , 3) , cells(i , 5)).Select
Selection.Clear
End If
Next i
にすればいいのかなと思ってやってみたのですが、
削除されないのです。VBAに関しては初心者なのでよくわからず困っています。
どなたか助けていただけると嬉しいです。
よろしくお願いいたします。
Excel2007 windows7 使っています。以下のマクロを実行すると、アプリケーション定義やオブジエクト定義エラーになってしまします。どうしてでしょうか。ご教示お願いします。
sub test()
If Not IsNumeric(Range("F17").Formula) Then
Range("f17").Formula = "=IF(OR(R2=""新規用"",R2=""継続用""),"""",IF(COUNTIF(+D10,""*改定*""),78,39))"
End If
end sub
