以下のサンプルコードをネットでみつけました。
"D$7"セルに入れた文字と同じ文字を見つけてセルを移動させてくれるコードだと思いますが
私のエクセル表はD7セルに６桁の数字（111101）を入れますが
検索先は'111101とシングルコーテーションが入っています。
サンプルコードのD7セルのところをどのように変更したらいいでしょうか。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim myR As Range
If Target.Address <> "$D$7" Then Exit Sub
If Target.Value = "" Then Exit Sub
Set myR = Cells.Find(What:=Target.Value, _
After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=True)
If myR.Address = Target.Address Then
MsgBox "同じ値はありません"
Else
myR.Activate
End If
End Sub
どうぞよろしくおねがいします。
以下のサンプルコードをネットでみつけました。
"D$7"セルに入れた文字と同じ文字を見つけてセルを移動させてくれるコードだと思いますが
私のエクセル表はD7セルに６桁の数字（111101）を入れますが
検索先は'111101とシングルコーテーションが入っています。
サンプルコードのD7セルのところをどのように変更したらいいでしょうか。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim myR As Range
If Target.Address <> "$D$7" Then Exit Sub
If Target.Value = "" Then Exit Sub
Set myR = Cells.Find(What:=Target.Value, _
After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=True)
If myR.Address = Target.Address Then
MsgBox "同じ値はありません"
Else
myR.Activate
End If
End Sub
どうぞよろしくおねがいします。
自身のファイルを読み取り専用で新たに立ち上げて、シートを選択したいのですが
Private Sub cmd_読み取り専用で開く_Click()
Dim xlApp As Object
Dim xlBook As Object
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open(ActiveWorkbook.FullName)
xlApp.Visible = True
xlApp.xlBook.Sheets("メイン").Select
Set xlApp = Nothing
Set xlBook = Nothing
End Sub
だと
xlApp.xlBook.Sheets("メイン").Selectでエラーになります。
文法が間違ってると思うのですが、修正案をご教授ください。
Sub 上下カット1()
Dim MyR As Range, MyMax As Integer, MyMin As Integer
Dim MX As Range, MN As Range
With ActiveSheet
MyMax = WorksheetFunction.Max(.Range("D15:P15"))
MyMin = WorksheetFunction.Min(.Range("D15:P15"))
For Each MyR In .Range("D15:P15")
If MyR.Value = MyMax Then Set MX = MyR
If MyR.Value = MyMin Then Set MN = MyR
Next
MX.Borders(xlDiagonalUp).LineStyle = xlContinuous
MN.Borders(xlDiagonalUp).LineStyle = xlContinuous
End With
With ActiveSheet
MyMax = WorksheetFunction.Max(.Range("D16:P16"))
MyMin = WorksheetFunction.Min(.Range("D16:P16"))
For Each MyR In .Range("D16:P16")
If MyR.Value = MyMax Then Set MX = MyR
If MyR.Value = MyMin Then Set MN = MyR
Next
MX.Borders(xlDiagonalUp).LineStyle = xlContinuous
MN.Borders(xlDiagonalUp).LineStyle = xlContinuous
End With
End Sub
を実行すると、 MX.Borders(xlDiagonalUp).LineStyle = xlContinuous
の部分にエラーがでます。
対処方法を教えてください。
Sub データPDFファイル化()
If MsgBox("ファイルをPDF化し過去データとして保存します。よろしいでしょうか？", vbYesNo) = vbNo Then
End
End If
If Range("L2").Value <> "" Then
Dim Fn As String
Fn = Format(Range("L2"), "yyyy年m月d日") & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:="D:\フォルダB\過去記録データ保存用フォルダ\データ\" & Fn
Else
MsgBox "セルL2にファイル名が入力されていません。", vbExclamation
End If
End Sub
この様なコードがあります。エクセル２００３では使用出来ないのでエクセル２００７以降の使用です。
これはシート名「A」にコマンドボタンを設置し、そのコマンドボタンを押すとPDF化して保存するマクロです。
そこで質問ですがコマンドボタンを押すとシート名「A」と隣にあるシート名「B」をまとめてPDFファイルで保存する方法はどの様にすれば良いのでしょうか？
PDF化した際は１ページ目がシート名「A」で２ページ目がシート名「B」を表示させ、名前はシート名「A」のL2（yyyy年m月d日）で保存します。
マクロの中で別のマクロを実行して、それをループさせてます
中のマクロで問題があったとき外のマクロ自体を停止させるのはどうすればいいのですか？
Sub A()
Do
Application.Run "I"
Application.Run "II"
Loop
End Sub
ここから マクロIの途中で何らかの条件が合えば、
マクロＡを終了するにはどうすれば良いのですか？
こんにちは。
Excel2013を使用しています。
カタカナは全角、英数記号は半角で表示を統一したく、ネットで検索したサンプルコードを範囲や条件等を変更して下記コードを作成しました。
(サンプルコードが記載されていたページに簡易な例で全ての場合に対応できていないとの但し書きがありました。)
下記コードを実行すると、記号のうち、括弧、中点については半角表示になりますが、＃については全角表示のままです。
Mid(rData, i, 1) Like "＃" の Like を = に変更して、Mid(rData, i, 1) = "＃" とすると、＃についても半角表示になりました。
“全ての場合に対応できていない”に該当するものなのかもしれませんが、Like では希望する結果を得られない理由は何なのか気になり、質問させていただきました。
よろしくお願いします。
--------------------------------------------------
Sub test()
Dim c As Range
Dim i As Integer
Dim rData As Variant, ansData As Variant
For Each c In Range(Cells(3, "D"), Cells(Cells(Rows.Count, "D").End(xlUp).Row, "D"))
ansData = ""
For i = 1 To Len(c.Value)
rData = StrConv(c.Value, vbWide)
If Mid(rData, i, 1) Like "[Ａ-ｚ]" Or Mid(rData, i, 1) Like "[０-９]" _
Or Mid(rData, i, 1) Like "（" Or Mid(rData, i, 1) Like "）" _
Or Mid(rData, i, 1) Like "・" Or Mid(rData, i, 1) Like "＃" Then
ansData = ansData & StrConv(Mid(rData, i, 1), vbNarrow)
Else
ansData = ansData & Mid(rData, i, 1)
End If
Next i
c.Value = ansData
Next c
End Sub
Excel2013です。
E列に従業員名、F列に部署名が入る表でVBAで従業員名が入力されると該当する部署名が表示されるようにしたく以下のようにコード（まだ一人分のIFステートです）を書いたのですが、すごく時間がかかってしまいます。
はじめは、実行にボタン登録したくなかったのでchangeイベントで実行するようにしたのですが、何度やってもExcelが落ちてしまい、今はボタンにマクロを登録させています。落ちることはなくなったのですが、ずっと砂時計です。
勤怠記録なので数十名分（一人二行）で365日の表になるので最終行は2万近くです。
Sub 部署名判断()
Dim a As Long
Application.ScreenUpdating = False
For a = 1 To 16000 '部署名判断
If Cells(a, 5).Value = "従業員A" Then
Cells(a, 6) = "総務課"
End If
Next a
Application.ScreenUpdating = True
End Sub
どういったコードの書き方をすればいいのでしょうか？
アドバイス願います。
このシートコードで「変数が定義されていません。」となります。どうすればいいでしょうか。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Target.Address
Case "$C$10:$C$13"
SendKeys "%{DOWN}"
Case "$H$10:$H$13"
SendKeys "%{DOWN}"
Case Else
Exit Sub
End Select
Cancel = True
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim R As Range
ActiveSheet.Protect UserInterfaceOnly:=True
Set R = Union(Range("D5:D38"), Range("E5:E38"), Range("T5:T38"))
With Target
If Intersect(.Cells, R) Is Nothing Then Exit Sub
Application.EnableEvents = False
Range(Cells(.Row, .Column), Cells(38, .Column)).Value = .Value
Application.EnableEvents = True
End With
End Sub
この様なコードがあるのですが範囲を変更したいと思います。
D５：D38は上記コードのままで良いのですが、E5；E38はE5：E36に、T5：T38はT5：T36に変更するにはどうすれば良いのでしょうか？
