Excel2003 VBA Functionの定数に関して教えて下さい。
例えば、
Function test(x, y)
test = A * x + B * y + C
End Function
という数式を定義し、プログラム中で使用したいとします。
数式を見て分かる通り、xとyは変数でA, B, Cは定数です。
そして、これらA, B, Cの値を
A = Cells(3,5)
B = Cells(3,6)
C = Cells(3,7)
のようにシート上の値を使用したいのですが、
上記のようにプログラム中で宣言してもFunctionの中では値が入っていないものとみなされてしまいます。
この問題の回避のため、、
Function test(x, y)
A = Cells(3,5)
B = Cells(3,6)
C = Cells(3,7)
test = A * x + B * y + C
End Function
のようにFunctionの中に、定数を宣言を入れてしまうか、
Function test(x, y, A, B, C)
test = A * x + B * y + C
End Function
のようにA, B, Cも定数ではなく、変数として扱う方法があります。
しかしながら、一つ目の方法では、こういったFunctionの数が増えてくると、
同じ定数を複数の場所で宣言することになり、後からプログラムを書き直そうとしたときに
極めて不便です。
一方で、２つめの方法では、test(x, y, A, B, C)のように、
一つのFunctionを呼び出すためにごちゃごちゃしてスペースをとり、
後から見たときに見にくくなります。
後、Constとして定義する方法もありますが、
A = Cells(3,5)
のように、シート上のデータを代入する方法をとりたいと考えています。
上記以外の方法以外でもっとスマートな方法がありましたら
教えて頂けますでしょうか？
ExcelVBAで、広範囲セルの空白チェックをしたいと思います。
以下のようなExcelシートがあります。
・10行目まではタイトル行
・データ入力可能セル範囲はA11～AF65536
全てのデータ範囲を削除するために、以下のコードを作成しました。
動きとしては問題ないのですが、データが存在しない場合の
処理時間が長くなってしまいます。
Sub 全データ削除()
Dim endrow As Long
Dim mydelete As Integer
Dim myrange As Range
endrow = Range("A11").End(xlDown).Row
For Each myrange In Range("A11:AF" & endrow)
If myrange.Value <> "" Then
GoTo 削除処理
End If
Next myrange
MsgBox "データがありません。"
Exit Sub
削除処理:
mydelete = MsgBox("全てのデータを削除しますか？", vbOKCancel)
Select Case mydelete
Case vbOK
Rows("11:65536").Delete
Range("D4").Formula = "=COUNTA(A11:A65536)"
MsgBox "データを削除しました。"
Exit Sub
Case vbCancel
MsgBox "キャンセルされました。"
Exit Sub
End Select
End Sub
データ範囲が65536行までになってしまうため時間がかかっているのだと思いますが、
回避方法がわかりません。
ご教授お願いいたします。
ExcelVBAで、広範囲セルの空白チェックをしたいと思います。
以下のようなExcelシートがあります。
・10行目まではタイトル行
・データ入力可能セル範囲はA11～AF65536
全てのデータ範囲を削除するために、以下のコードを作成しました。
動きとしては問題ないのですが、データが存在しない場合の
処理時間が長くなってしまいます。
Sub 全データ削除()
Dim endrow As Long
Dim mydelete As Integer
Dim myrange As Range
endrow = Range("A11").End(xlDown).Row
For Each myrange In Range("A11:AF" & endrow)
If myrange.Value <> "" Then
GoTo 削除処理
End If
Next myrange
MsgBox "データがありません。"
Exit Sub
削除処理:
mydelete = MsgBox("全てのデータを削除しますか？", vbOKCancel)
Select Case mydelete
Case vbOK
Rows("11:65536").Delete
Range("D4").Formula = "=COUNTA(A11:A65536)"
MsgBox "データを削除しました。"
Exit Sub
Case vbCancel
MsgBox "キャンセルされました。"
Exit Sub
End Select
End Sub
データ範囲が65536行までになってしまうため時間がかかっているのだと思いますが、
回避方法がわかりません。
ご教授お願いいたします。
Excel マクロ 特定文字の抽出
10月20日に質問させていただき、jcctaira様にご回答頂きました。
1点うまくいかない点があり、再度質問させていただきます。
お教え頂きましたマクロは下記になります。
For i = 2 To last
strt = Mid(Cells(i, "A"), 6, 3)
Cells(i, "B") = strt
Next i
End Sub
3文字が3桁の数字で例えば「001」や「022」の場合に
貼り付けたセルでは「1」や[22」になり0が表示されません。
どのように貼り付けを指定すれば3桁の数字（先頭が0のもの）が
正しく反映されますでしょうか。
VBAの日付チェックでオーバーフローを回避したい。
ExcelのＧ列のセルに入力されたものが日付型であるかどうかのチェックかけたいと思います。
以下のコードだと、数字2958466以上の入力でオーバーフローが発生します。
これを回避する方法はありますか？
セルを日付型に設定しているため、2958465（2999/12/31）までしか判別できないのでしょうが、
利用者が2958466以上を入力してしまう可能性はあります。
オーバーフローではなく、エラーメッセージが出せたら・・・と思います。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 8 Then
Application.EnableEvents = False
If Target <> "" And Not IsDate(Target) Then
MsgBox "日付型で入力してください。" & vbCrLf & "(例:2010/10/31)", vbCritical, "入力エラー"
Target = ""
Target.Select
End If
Application.EnableEvents = True
End If
End Sub
こんなコードも試しましたが、結果は同じでした。
↓
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 8 Then
Application.EnableEvents = False
If Target > 2958466 Then
MsgBox "日付型で入力してください。" & vbCrLf & "(例:2010/10/31)", vbCritical, "入力エラー"
Target = ""
Target.Select
Else
If Target <> "" And Not IsDate(Target) Then
MsgBox "日付型で入力してください。" & vbCrLf & "(例:2010/10/31)", vbCritical, "入力エラー"
Target = ""
Target.Select
End If
End If
Application.EnableEvents = True
End If
End Sub
On Error Resume Next や
On Error GoTo ... での対処も考えましたが、同じ結果でした。
何か良い方法がありましたら、お願いいたします。
Excel マクロ 特定文字の抽出
10月20日に質問させていただき、jcctaira様にご回答頂きました。
1点うまくいかない点があり、再度質問させていただきます。
お教え頂きましたマクロは下記になります。
For i = 2 To last
strt = Mid(Cells(i, "A"), 6, 3)
Cells(i, "B") = strt
Next i
End Sub
3文字が3桁の数字で例えば「001」や「022」の場合に
貼り付けたセルでは「1」や[22」になり0が表示されません。
どのように貼り付けを指定すれば3桁の数字（先頭が0のもの）が
正しく反映されますでしょうか。
VBAの入力規則について質問です。
Excelで、D列は全角50文字（半角100文字）以内の入力を可能とし、
それ以上の入力の場合、エラーを表示させたいと思います。
全角と半角をバイト数で判別し、以下のようなコードを考えましたが、
全角の場合しかうまくできません。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ByteCount As Long
ByteCount = LenB(StrConv(Target, vbFromUnicode))
If Target.Column = 4 Then
Select Case ByteCount
Case Is > 100
With Target.Validation
.Add _
Type:=xlValidateTextLength, _
AlertStyle:=xlValidAlertStop, _
Operator:=xlBetween, Formula1:=1, Formula2:=100
.ErrorTitle = "入力エラー"
.ErrorMessage = "全角50文字（半角100文字）以内で入力してください。"
.IgnoreBlank = False
End With
Case 1 To 100
With Target.Validation
.Add _
Type:=xlValidateTextLength, _
AlertStyle:=xlValidAlertStop, _
Operator:=xlBetween, Formula1:=1, Formula2:=50
.ErrorTitle = "入力エラー"
.ErrorMessage = "全角50文字（半角100文字）以内で入力してください。"
.IgnoreBlank = False
End With
End Select
End If
End Sub
アドバイスをよろしくお願いいたします。
