VBAの初心者です。
Sub Sample1()
If ActiveCell.Value = "新宿" Then
MsgBox "新宿です"
Else
MsgBox "新宿ではありません"
End If
End Sub
上記の記述は以下のページにあったサンプル
https://www.moug.net/tech/exvba/0140043.html
このマクロを登録したボタンを作成して、A1セルに「新宿」と入力し、A1が選択された状態でボタンを押すと正しく実行されます。
これをActiveCellではなくて、指定したセルがTRUEの場合と変更したいのですが、どのように記述すればいいのでしょうか。
また、"新宿"の部分を別の文字に変更したいのですが、入力の途中で文字が勝手に確定されてしまい、漢字変換できません。
入力中に何か勝手に処理が行われているようですが、どうすればいいのでしょうか。
VBAの初心者です。
Sub Sample1()
If ActiveCell.Value = "新宿" Then
MsgBox "新宿です"
Else
MsgBox "新宿ではありません"
End If
End Sub
上記の記述は以下のページにあったサンプル
https://www.moug.net/tech/exvba/0140043.html
このマクロを登録したボタンを作成して、A1セルに「新宿」と入力し、A1が選択された状態でボタンを押すと正しく実行されます。
これをActiveCellではなくて、指定したセルがTRUEの場合と変更したいのですが、どのように記述すればいいのでしょうか。
また、"新宿"の部分を別の文字に変更したいのですが、入力の途中で文字が勝手に確定されてしまい、漢字変換できません。
入力中に何か勝手に処理が行われているようですが、どうすればいいのでしょうか。
office2010,oracle 11g
oracleからexcelへの抽出条件で、(1)と(2)は、それぞれで動作します。
(1)と(2)をor条件で接続したいのですが、どの様な書式になるか教えていただきたく。
Dim t As String
t = Mid(Sheets("macro").Range("I1").Value, 1, 8)
I1セルには式=TEXT(NOW(),"yyyymmdd")が入っています。
(1)
rs.Open "select * from USER where (A ='B' and C ='D' and E <>'F' and E <>'G' and not E like '使用不可%') or ( A ='B' and C ='H') ", cn, adOpenDynamic, adLockOptimistic, adCmdText
(2)
rs.Open "select * from USER where K ='L' and M >" & t, cn,adOpenDynamic,adLockOptimistic, adCmdText
where (…) or (…) or (…) , cn,adOpenDynamic,adLockOptimistic, adCmdText
という構成でエラーになるのです。
※なお、条件分は、本来のものと変えています。
お世話になります。
こちらのサイト内にありました、以前の質問QNo.8966520に対する以下の回答（http://qa.itmedia.co.jp/qa8966520.html）を参考にしているところですが、このVBAでは、A列に入っているデータ毎に新規ファイルを作成・保存するような処理となっているようですが、仮にデータを分類する基準を現在のA列を基準としたものから、B列にする場合は、どの記述をどのように変更すればよろしいでしょうか。
これに加えての質問ですが、仮にA.xlsｘという元ブックがあると仮定し、この中に[データ]と[単価]という2つのシートがあるとします。以下のVBAの記述では[データ]シートのデータをA列ごと分類し、それを新規ブックに保存させるものですが、これに合わせて[単価]シートのデータ（シート内のデータは加工の必要なし）も新たに作成するブックにコピーし、保存するには、どのような記述を追加すればよろしいでしょうか。最終的には、新規作成ブックに、[データ]と[単価]の2つのシートが作成されるようにしたいと思います。
[単価]シートのデータを、[データ]シートのデータと合わせて新規ブックにコピーする目的は、[データ]シートのデータの一部に、[単価]シートのデータを参照する数式が入っており、[作業用]シートのデータの抽出・保存だけでは、[作業用]シート内の数式が不完全な状態となってしまうためです。
どなたかご教授いただけますでしょうか？
よろしくお願い致します。
Sub sample()
Dim s0, nwk As Worksheet
Dim h
Dim i, j, LastRow, cnt As Long
Application.DisplayAlerts = False
Worksheets("データ").Copy before:=Worksheets(1)
Set s0 = Worksheets(1)
Do Until Application.CountA(s0.Range("A:A")) < 2
h = s0.Range("A2").Value
'検索ワードの変数hと同じ文字のセル数取得
cnt = WorksheetFunction.CountIf(s0.Range("A:A"), h)
i = cnt + 1
With s0
Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = h
End With
Set nwk = Worksheets(h)
'データシートのA列の最終行取得
LastRow = s0.Cells(Rows.Count, 1).End(xlUp).Row
j = LastRow
'1行目コピー
s0.Range("A1:C1").Copy nwk.Range("A1")
Do Until j = 1
'A列のセルデータが変数hと同じ場合コピペ及び行削除
If s0.Cells(j, 1).Value = h Then
s0.Range("A" & j & ":C" & j).Copy nwk.Range("A" & i)
i = i - 1
s0.Rows(j).Delete
End If
j = j - 1
Loop
With nwk
.Move
ActiveWorkbook.SaveAs Filename:="C:\dumy\" & h & ".xlsx"
ActiveWorkbook.Close False
End With
Loop
s0.Delete
Application.DisplayAlerts = False
MsgBox "データをEXCELに表示します。"
End Sub
よろしくお願いします。
下記構文の簡素化ができないでしょうか。
CommandButtonが30個ほどあります。
ーーーーーーーーーー
Private Sub CommandButton1_Click()
Dim rng As Range
Application.Goto Sheets("基本台紙").Range("A1")
Set rng = Range("A1:D7")
Rows.Hidden = True
rng.EntireRow.Hidden = False
Columns.Hidden = True
rng.EntireColumn.Hidden = False rng(1).Select
Unload Me
UserForm1.Show vbModeless
End Sub
ーーーーーーーーーー
Private Sub CommandButton2_Click()
Dim rng As Range
Application.Goto Sheets("基本台紙").Range("A1")
Set rng = Range("A8:B21")
Rows.Hidden = True
rng.EntireRow.Hidden = False
Columns.Hidden = True
rng.EntireColumn.Hidden = False
rng(1).Select
Unload Me
UserForm1.Show vbModeless
End Sub
ーーーーーーーーーー
Private Sub CommandButton3_Click()
Dim rng As Range
Application.Goto Sheets("基本台紙").Range("A1")
Set rng = Range("C8:D21") Rows.Hidden = True
rng.EntireRow.Hidden = False
Columns.Hidden = True
rng.EntireColumn.Hidden = False rng(1).Select
Unload Me
UserForm1.Show vbModeless
End Sub
お客さんからもらったEXCELのフォーマットに沿って集計ツールを
EXCEL VBAで作成していますが、下記で詰まってしまいました。
表示されているシートを順に選択して、それ毎に「結果」と「実施日」と
入力されているセルがあるか探して、無ければとばして、あれば
処理していくという流れで作成しています。
★の行が無い状態では動くのですが、それだとシート内で「結果」「実施日」を
見つけて処理した後に、次のシートへ行ってしまいます。
シートによっては複数の「結果」「実施日」があり（この２つはセット）、
それを全て拾って処理したいと考えて、繰り返す為に★の行を追加して実行すると、
一つ目の★の行で「オブジェクトが必要です」というエラーではじかれてしまいます。
自分としては、２つ目の★の行でオブジェクトを用意しているつもりですが。。。
For Each、、、に拘りは特に無いので、他の方法も含めて
どなたかご教示いただきたいです。
For Each Sh In Worksheets
Sh.Activate
If Sh.Visible = True Then
Set Kekka = Sh.Cells.Find(What:="結果")
If Not Kekka Is Nothing Then
Set jissibi = Sh.Cells.Find(What:="実施日")
If Not jissibi Is Nothing Then
For Each rg In UsedRange ★
Set rg = Range("kekka") ★
Day_Col = jissibi.Column
Day_Col_Last_Row = Cells(Rows.Count, Day_Col).End(xlUp).Row
Result_Col = rg.Column
Call Count(A_count, B_count, C_count)
Next rg ★
Else
End If
Else
End If
Else
End If
Next Sh
