TextBox1に'[00:00:00]'や'[05:10:01]'等と入力されています。
（00には00～59までの数字が入力されいています。）
これを全てNULLに置換したいのですが、どうやるんでしょうか？
下記の方法だと、一々00～59までコードを書かないといけません。
Dim a sa String
Dim b sa String
a=TextBox1.Text
b=Replace(a, "[00:00:00]", "")
TextBox2.Text=b
下記コードではリストボックあ行選択しテキスト1～6に入力後、クリアボタンで消去したあと、か行選択しテキストに入力したら7～貼付けになるクリアボタンで消去後、改めてテキスト1～入力するコードがありますか。どなたか解る方よろしくお願いします。
Private Sub 実行_Click()
Static cnt As Integer
Dim i As Integer
If Listbox.ListIndex = -1 Then Exit Sub
For i = 0 To Listbox.ListCount - 1
If Listbox.Selected(i) Then
cnt = cnt + 1
If cnt > 10 Then cnt = 1
Me.Controls("TextBox" & cnt).Text = Listbox.List(i)
End If
Next
End Sub
Private Sub クリア_Click()
Dim tbCont As Control
With Me.MultiPage1
For Each tbCont In .Pages(.Value).Controls
If TypeName(tbCont) = "TextBox" Then
tbCont.Value = Null
End If
Next tbCont
End With
End Sub
下記コードではリストボックあ行選択しテキスト1～6に入力後、クリアボタンで消去したあと、か行選択しテキストに入力したら7～貼付けになるクリアボタンで消去後、改めてテキスト1～入力するコードがありますか。どなたか解る方よろしくお願いします。
Private Sub 実行_Click()
Static cnt As Integer
Dim i As Integer
If Listbox.ListIndex = -1 Then Exit Sub
For i = 0 To Listbox.ListCount - 1
If Listbox.Selected(i) Then
cnt = cnt + 1
If cnt > 10 Then cnt = 1
Me.Controls("TextBox" & cnt).Text = Listbox.List(i)
End If
Next
End Sub
Private Sub クリア_Click()
Dim tbCont As Control
With Me.MultiPage1
For Each tbCont In .Pages(.Value).Controls
If TypeName(tbCont) = "TextBox" Then
tbCont.Value = Null
End If
Next tbCont
End With
End Sub
テキストボックス1～30に入力した際、テキストの３行目をクリアーした後、実行ボタンを押したらExcelsheet1のABC列に入力できるがテキストに空欄が生じた場合、以下のコードでは空欄以降の値が入力できません。空欄は無視し続けてセルに入力するコード表示はあるのでしょうか、お解りになる方宜しくお願いします。
できればコード追加入力で行いたいのですが。
Private Sub 実行_Click()
Dim i As Integer
Dim LRow As Long
LRow = Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To 10
If Me.Controls("TextBox" & i).Text = "" Then Exit For
Range("A" & LRow + i).Value = Me.Controls("TextBox" & i).Text
Range("B" & LRow + i).Value = Me.Controls("TextBox" & i + 10).Text
Range("C" & LRow + i).Value = Me.Controls("TextBox" & i + 20).Text
Next
End Sub
実行２クリックで2列のテキストボックス１～７の値をsheet1のA列、テキストボックス１１～１７の値をB列に入力したいのですが下記の方法にどうコード追加していいのかわかりません。どなたかコードが解る方よろしくお願いします。
Private Sub 実行2_Click()
For i = 1 To 1000
If Sheet1.Cells(i, 1.Value = vbNullString Then: Exit For
Next
For Each o In UserForm1.Controls
Dim c As MSForms.Control
Set c = o
If c.Name Like "TextBox*" Then
Dim t As MSForms.TextBox
Set t = c
If t <> vbNullString Then
Sheet1.Cells(i, 1.Value = t
i = i + 1
t = vbNullString
End If
End If
Next
End Sub
実行２クリックで2列のテキストボックス１～７の値をsheet1のA列、テキストボックス１１～１７の値をB列に入力したいのですが下記の方法にどうコード追加していいのかわかりません。どなたかコードが解る方よろしくお願いします。
Private Sub 実行2_Click()
For i = 1 To 1000
If Sheet1.Cells(i, 1.Value = vbNullString Then: Exit For
Next
For Each o In UserForm1.Controls
Dim c As MSForms.Control
Set c = o
If c.Name Like "TextBox*" Then
Dim t As MSForms.TextBox
Set t = c
If t <> vbNullString Then
Sheet1.Cells(i, 1.Value = t
i = i + 1
t = vbNullString
End If
End If
Next
End Sub
リストボックス１であ行の氏名項目を選択実行しテキストボックス１～８に入力された後にか行にリストボックス項目を変え氏名を選択実行した場合、下記のコードではテキストボックス１からまた上書きされる。テキストボックス空欄に続けて選択項目が入力される方法はあるのでしょうか。悩んでいます。どなたかコードがわかる方よろしくお願いします。
Private Sub 実行Cnd_Click()
Dim cnt As Integer
Dim i As Integer
If ListBox1.ListIndex = -1 Then Exit Sub
cnt = 1
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then
Me.Controls("TextBox" & cnt).Text = ListBox1.List(i)
cnt = cnt + 1
End If
Next
End Sub
指定範囲(I9:CW40)から図形(円・四角形)のクリアをするとエラーになってしまいます。御教授願えませんでしようか？(尚四角形はセルの枠線上に貼り付けるようにしてあります。)
Sub 図形のクリア()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Dim myRng As Range
Set myRng = Range("I9:CW40")
Dim n As Integer, sp As Variant
For n = ActiveSheet.Shapes.Count To 1 Step -1
Set sp = ActiveSheet.Shapes(n)
If Not Intersect(Range(sp.TopLeftCell, sp.BottomRightCell), myRng) Is Nothing Then(ここで、1004の実行エラーになる。)
sp.Delete
End If
Next
Set myRng = Nothing
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub
環境ＶＢ．ｎｅｔ 初心者です。教えていただきたのですが
Ｄａｔａｇｒｉｄｖｉｅｗを使用しループ処理で全行の単価セル内に数字の０を追加したいのですが１行目のセルのみ値が追加されません。（２行以降は全て追加されます）コードは下記の通りです。
For CNT = 0 To マスタテーブルCNT
マスタテーブルdatagridview("単価", CNT).Value = 0
Next
ご教授お願いします。
今プログラムを作っていますが、なかなか上手く出来ず困っています。
シートのデータをコピーして別のシートに貼り付ける事は可能でしょうか。
シート内全てのデータという訳ではなく、Ｇ列に日付が入っている人のみなど
条件付でマクロを作成のしたいのですが・・・。
具体的に言うと、番号・名前・所属・期間・退職日などが項目になっている表があり
個人別で都度退職日を入力しています。
Ｇ列の退職日を入力すると、Ｆ列の期間に”退職”と表示されるようにＩＦ関数を使っています。
今回マクロを使いたい部分ですが
退職日が入力されている人のみ別のシートにコピーし貼り付けて
まとめておきたいなと思っています。
また、番号・名前・所属・機関・退職日などの項目の表が
所属別にあるので5シート分ぐらいに分かれています。
このような場合は、もしコピー貼り付けがマクロで出来たとして
各シート別にコマンドボタンみたいなものを用意しなければいけないのでしょうか。
それとも、コマンドボタン１回のクリックで全てのシートから
退職日が入力されているデータを参照しコピー貼り付けが出来るのでしょうか。
説明がわかりずらくなってしまい申し訳ありません。
今打ち込んであるプログラムです。
Sub ボタン1_Click()
Dim n As Integer
For n = 1 To 100
If Worksheets("シート1").Cells(n, 6) = "退職" Then
Worksheets("シート1").Range("B3:H100").Copy Destination:=Worksheets("退職者リスト").Range("B4:H100")
Else
End If
Next n
End Sub
コマンドボタンをクリックすると、コピーは出来ているみたいなのですがシート1全てが退職者リストに貼り付けされてしまいます。
Ｆ列が”退職”の人だけ参照させたいのですが・・・。
Ｆ列は退職日が入力されると、”勤務継続中”→”退職”と変更になるようＩＦ関数を使っています。
マクロはほとんど初心者ですので、もしよければプログラムをある程度構成して頂けるとすごく助かります。
これを機会に少しずつ勉強していきたいなと思っていますので、簡単な説明もあると尚嬉しいです。
よろしくお願い致します。
