Ｅxcel2007でマクロ作成中の初心者です。
不特定範囲の中で日付検索し、日付の有無で
処理を分岐したいです。でも、どうしても出来ません。
よろしくお願いします。
1）不特定範囲 Range("BR30:BR90")
行は毎月1回ごとに増加します。
ここのセルには、すべて2013/10/12 形式で日付けが入ってます。
2）見つける日付は、セルRange("$U$2")です。
2013/10/12 形式で日付けが入ってます。
3）分岐処理を追加したいです。
もし同じ日付が見つかった場合は、 処理1へ
同じ日付が見つからない場合は、処理2へ
Sub 日付検索後の処理()
Dim FC As Range
Set FC = Range("BR30:BR90").Find(What:=DateValue("2013/10/20"), _
LookIn:=xlFormulas)
’ここに処理を追加したい
End Sub
Ｅxcel2007でマクロ作成中の初心者です。
不特定範囲の中で日付検索し、日付の有無で
処理を分岐したいです。でも、どうしても出来ません。
よろしくお願いします。
1）不特定範囲 Range("BR30:BR90")
行は毎月1回ごとに増加します。
ここのセルには、すべて2013/10/12 形式で日付けが入ってます。
2）見つける日付は、セルRange("$U$2")です。
2013/10/12 形式で日付けが入ってます。
3）分岐処理を追加したいです。
もし同じ日付が見つかった場合は、 処理1へ
同じ日付が見つからない場合は、処理2へ
Sub 日付検索後の処理()
Dim FC As Range
Set FC = Range("BR30:BR90").Find(What:=DateValue("2013/10/20"), _
LookIn:=xlFormulas)
’ここに処理を追加したい
End Sub
Ｅxcel2007でマクロ作成中の初心者です。
不特定範囲の中で日付検索し、日付の有無で
処理を分岐したいです。でも、どうしても出来ません。
よろしくお願いします。
1）不特定範囲 Range("BR30:BR90")
行は毎月1回ごとに増加します。
ここのセルには、すべて2013/10/12 形式で日付けが入ってます。
2）見つける日付は、セルRange("$U$2")です。
2013/10/12 形式で日付けが入ってます。
3）分岐処理を追加したいです。
もし同じ日付が見つかった場合は、 処理1へ
同じ日付が見つからない場合は、処理2へ
Sub 日付検索後の処理()
Dim FC As Range
Set FC = Range("BR30:BR90").Find(What:=DateValue("2013/10/20"), _
LookIn:=xlFormulas)
’ここに処理を追加したい
End Sub
Ｅxcel2007でマクロ作成中の初心者です。
不特定範囲の中で日付検索し、日付の有無で
処理を分岐したいです。でも、どうしても出来ません。
よろしくお願いします。
1）不特定範囲 Range("BR30:BR90")
行は毎月1回ごとに増加します。
ここのセルには、すべて2013/10/12 形式で日付けが入ってます。
2）見つける日付は、セルRange("$U$2")です。
2013/10/12 形式で日付けが入ってます。
3）分岐処理を追加したいです。
もし同じ日付が見つかった場合は、 処理1へ
同じ日付が見つからない場合は、処理2へ
Sub 日付検索後の処理()
Dim FC As Range
Set FC = Range("BR30:BR90").Find(What:=DateValue("2013/10/20"), _
LookIn:=xlFormulas)
’ここに処理を追加したい
End Sub
VBAの素人です。
以下のようなVBAを実行しようと、何とか形にしました。
単独のBOOKではうまくいくのですが、同時に他のBOOKを開くと
「インデックスが有効範囲にありません」とエラーになります。
エラー箇所は、With Sheets("Sheet1").Range("B1")部分です。
修正をご教示頂ける方、何卒よろしくお願い致します。
全くVBA無知なのにすみません。
Private Sub Workbook_Open()
test01
test02
Application.OnTime Now + TimeValue("00:10:00"), "終了"
End Sub
Sub 終了()
Application.OnTime Now + TimeValue("0:00:02"), "test01", , False
ThisWorkbook.Close Savechanges:=False
Application.Quit
End Sub
Sub test01()
With Sheets("Sheet1").Range("B1")
.Value = Time
.NumberFormatLocal = "mm:ss"
End With
Application.OnTime Now + TimeValue("0:00:02"), "test01"
End Sub
Sub test02()
With Sheets("Sheet1").Range("B2")
.Value = Time
.NumberFormatLocal = "mm:ss"
End With
End Sub
エクセルのFunctionプロシージャを使って以下のユーザー定義関数を作りたいのですが上手くいきません。
アドバイスお願いしますm(＿_)m
やりたいこと
エクセルのA列とB列に複数の（たとえば10行の）数字が並んでいます。
各行ごとに 0.5×[A列の値]×[B列の値の二乗]
を算出し、その合計を求めたいです。
別の列（例えばC列）を使って上記の計算式を入力し、その合計を求めればよいのですが
どうしてもFunctionプロシージャを使って１セルだけを使って求めたいのです。
自分はVBA（エクセルマクロ）はあまり詳しくないのですが
色々ネットで調べた結果、以下のようなプロシージャを書いてみたのですが
上手く計算できません。
Function KE(element As Range)
Dim e As Range
Dim m() As Variant
Dim v() As Variant
Dim ans As Integer
i = 0
j = 0
For Each e In element
If i = j Then
m(i) = e.Value
i = i + 1
Else
m(j) = e.Value
j = j + 1
End If
Next e
k = i
i = 0
j = 0
While i < k + 1
ans = ans + 0.5 * m(i) * v(i) * v(i)
i = i + 1
Wend
KE = ans
End Function
もちろん、この形に拘りません
Functionプロシージャを使ってうまく計算できる方法ありましたらご教示お願いします。
