いつもお世話になっています。
色々しらべて試してみたんですが、うまくいかないんで教えてください。
CHANGEイベントに複数のイベントを書き込みたいんですが。
今現在、問題なく動いている以下のイベントがあります。
(1)
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rang3 As Range
Dim rang4 As Range
Dim ■■ As String
Dim LastRow1 As Long
LastRow1 = Worksheets("○○").Cells(Rows.Count, "b").End(xlUp).Row
Set rang4 = Worksheets("○○").Range("b:I" & LastRow)
Set rang3 = Range("h4")
If Intersect(Target, rang3) Is Nothing Then Exit Sub
On Error Resume Next
■■ = WorksheetFunction.VLookup(Target.Value, rang4, 2, 0)
If Err.Number > 0 Then
MsgBox Target.Value & "はありません。基本情報台帳に入力してください。"
Range("h4").Select
Else
Application.EnableEvents = False
Range("I4").Value = Application.WorksheetFunction.VLookup(Target, Worksheets("△△").Range("b:I"), 2, False)
Range("j4").Value = Application.WorksheetFunction.VLookup(Target, Worksheets("△△").Range("b:I"), 3, False)
Range("k4").Value = Application.WorksheetFunction.VLookup(Target, Worksheets("△△").Range("b:I"), 7, False)
Range("l4").Value = Application.WorksheetFunction.VLookup(Target, Worksheets("△△").Range("b:I"), 8, False)
Range("m4").Value = Application.WorksheetFunction.VLookup(Target, Worksheets("△△").Range("b:I"), 5, False)
Application.EnableEvents = True
Range("K4").Select
End If
End Sub
このシートにもう一つ、イベントを入れたいのですが。
(2)
If Target.Count > 1 Then Exit Sub
If Intersect(Target, Range("E4")) Is Nothing Then
Exit Sub
Else
If Range("e4").Value = "1" Then
Target.Offset(0, 19).Value = "☆"
End If
どこに入れればいいのかわかりません。
(3)
また、(2)のイベントの他に、
(1)のＶＬＯＯＬＵＰが実行され、尚且つ(2)のイベントのＥ４が値が１だった場合、Ｙ４にＨ４の値を入れたいのですが・・・。
(2)のみなら動くことは確認できましたが、(1)のｅｘｉｔ ｓｕｂ の直前に入れたり、ｅｎｄ ｉｆの前に入れたりしましたが、片方は動くが、もうひとつが動かないです。
(3)については、まったくわかりません。
マクロについて、自分でネットで勉強した程度なので、基本がわかっていないからなのでしょうが・・・。
どなたか、教えてください。
お願いします。
図面と見積りを提出後、客先より回答あり。
私から中国工場担当者へコストダウンの依頼をします。
その中で以下のような英文を考えています。
客先よりこの件についてリクエストがありました。
We have received the request about this matter from USER.
彼らはコストダウンを要望しています。
USER hopes for reduction in costs.
以下の要素を含め検討し、返信お願いします。
Please consider it including the following factors, and please reply by return.
(1)プレートの上部溶接は不要です。
(1)The upper part weld of the plate is no necessary.
(2)彼らは連続溶接しています。
(2)The block is welding continuously by them.
図面と写真を見てください。
Please confirm attached the picture and the drawing.
The actual article a little different from the drawing, because they are for save time and effort.
工数を減らすために実際には図面と現物は違うようです。。
どちらかと言うと、「彼らは手間を省くため写真のようにしているようです」にしたいんですが。
Also, please tell if there are some problem for the above factors.
上記要素について何か問題があれば教えてください。
以上よろしくお願い申し上げます。
windows XP でエクセル２０００を使っています。
Sub aaa()
Sheets("Sheet1").Select
Dim a As String
a = Cells(2, 4)
Sheets(a).Select
Range("A1").Select
End Sub
というマクロだと セルに入っている値のシート名を探してくれます。
ですが
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Intersect(Target, Range("B11:b683")) Is Nothing Then Exit Sub
Worksheets("Sheet1").Range("C2").Value = Target.Value
Dim b As String
b = Range("C2).value （←ここをcellsにしてもダメ）
Sheets(b).Select
Range("A1").Select
End Sub
これだとsheets(b)を選びません。Sheets(b).Selectのところが黄色くなります。
何処が間違えているのでしょうか。
全くの素人ですが、仕事で必要に迫られています。
わかりやすく回答・解説くれると助かります。
いつもお世話になっています。
色々しらべて試してみたんですが、うまくいかないんで教えてください。
CHANGEイベントに複数のイベントを書き込みたいんですが。
今現在、問題なく動いている以下のイベントがあります。
(1)
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rang3 As Range
Dim rang4 As Range
Dim ■■ As String
Dim LastRow1 As Long
LastRow1 = Worksheets("○○").Cells(Rows.Count, "b").End(xlUp).Row
Set rang4 = Worksheets("○○").Range("b:I" & LastRow)
Set rang3 = Range("h4")
If Intersect(Target, rang3) Is Nothing Then Exit Sub
On Error Resume Next
■■ = WorksheetFunction.VLookup(Target.Value, rang4, 2, 0)
If Err.Number > 0 Then
MsgBox Target.Value & "はありません。基本情報台帳に入力してください。"
Range("h4").Select
Else
Application.EnableEvents = False
Range("I4").Value = Application.WorksheetFunction.VLookup(Target, Worksheets("△△").Range("b:I"), 2, False)
Range("j4").Value = Application.WorksheetFunction.VLookup(Target, Worksheets("△△").Range("b:I"), 3, False)
Range("k4").Value = Application.WorksheetFunction.VLookup(Target, Worksheets("△△").Range("b:I"), 7, False)
Range("l4").Value = Application.WorksheetFunction.VLookup(Target, Worksheets("△△").Range("b:I"), 8, False)
Range("m4").Value = Application.WorksheetFunction.VLookup(Target, Worksheets("△△").Range("b:I"), 5, False)
Application.EnableEvents = True
Range("K4").Select
End If
End Sub
このシートにもう一つ、イベントを入れたいのですが。
(2)
If Target.Count > 1 Then Exit Sub
If Intersect(Target, Range("E4")) Is Nothing Then
Exit Sub
Else
If Range("e4").Value = "1" Then
Target.Offset(0, 19).Value = "☆"
End If
どこに入れればいいのかわかりません。
(3)
また、(2)のイベントの他に、
(1)のＶＬＯＯＬＵＰが実行され、尚且つ(2)のイベントのＥ４が値が１だった場合、Ｙ４にＨ４の値を入れたいのですが・・・。
(2)のみなら動くことは確認できましたが、(1)のｅｘｉｔ ｓｕｂ の直前に入れたり、ｅｎｄ ｉｆの前に入れたりしましたが、片方は動くが、もうひとつが動かないです。
(3)については、まったくわかりません。
マクロについて、自分でネットで勉強した程度なので、基本がわかっていないからなのでしょうが・・・。
どなたか、教えてください。
お願いします。
アメリカ政治関連の記事（オバマと共和党との関係）の内容のもので、最終部分です。
"The most important competition we face is between America and our economic competitors," he said at his press conference. That's a message that cable eye-gougers on both sides should be able to endorse.
具体的に私がわからないのは cable eye-gougers です。
この英文に対して日本語版のニュウーズウイークの訳は
「今の私たちにとってもっとも重要な競争は、アメリカと経済的なライバル国との競争だ」と、大統領は記者会見で言った。このメッセージには、民主・共和両党の強硬派も同意できるはずだ。 です。
cable eye-gougers は強硬派 となるようですが、gouger は私の辞書では「掘り出す人、町のチンピラ」等の意があります。 私の辞書には eye-gouger はありません（あまり新しい辞書でない為かも）。
cable とあるのはこの文中でどんな意味、役割がありますか？
教えて下さい。よろしくお願いいたします。
