- ベストアンサー
簡単な質問ですみません
michi12345の回答
- michi12345
- ベストアンサー率60% (3/5)
こんにちは。 &の連結でかまいませんが、データ型と表現を意識するならFORMATを使用して文字列型表現に明確化して 連結するとエラーになりません。 FORMATに第2パラメータを付与することで 表現方法をコントロールすることも可能です。 Sub TEST() For RETU = 3 To 7 Cells(8, 8) = Cells(8, 8) & FORMAT(Cells(8, RETU)) Next RETU End Sub
関連するQ&A
- VBA処理速度の向上（配列？）
いつもお世話になっております。 エクセルVBA勉強中の初心者です。 書籍などを参考に、下記コードを作成し、セル内データを計算しています。 セル数が少ない場合には良かったのですが、将来的には、 約30,000行×100列程度になる予定で、処理に時間がかかってしまっています。 （現状で10,000行×50列程度、データは増えていきます。） 過去ログ、HPなどを調べると、配列に入れれば、処理速度が格段に上がると あったのですが、如何せん私には難しく、理解できませんでした・・・ 配列に限らず、処理速度が上がる方法をご教授、添削頂ければ助かります。 よろしくお願いいたします。 Sub test() Dim Gyo As Long, Retu As Long For Gyo = 3 To Range("A65536").End(xlUp).Row For Retu = 1 To Range("D3").End(xlToRight).Column Cells(Gyo, Retu).Value = Cells(Gyo, Retu).Value / 1000000 Next Retu Next Gyo End Sub
- ベストアンサー
- オフィス系ソフト
- VBAでセルデータの転記（文字列）
VBAでセルのデータを下記のように他のセルに持っていく場合、文字として入れてある数字（例えば先頭に０がつくようなもの）は、自動的に数値に変えられて０が消えてしまいます。 また、長いものは指数表示になってしまい、15桁を超えるものは後ろが０になってしまいます。 持っていく先のセルを文字列に設定しておけばいいのでしょうが、持っていく元データが全て文字列ではなく、数値の場合もあります。 元データが数値であれば数値として、文字列であれば文字列として持っていくにはどうすればいいのでしょうか？ Sub test() Cells(3, 3).Value = Cells(1, 1).Value End Sub
- ベストアンサー
- オフィス系ソフト
- ｖｂａ 数式を入れる 列を数値にしたい
ｖｂａで数式をセルに入れる際に、アルファベットで列を指定するのではなく 数値で指定する場合、どうすればいいでしょうか？ 例えば、Ａ１セルに Sub Sample() Cells(1, 1) = "=a2+a3" End Sub と言う結果にしたい場合、 a列の部分も数値で指定したいです。 Sub Sample() Cells(1, 1) = "=" & Cells(2,1) & "+" & Cells(3,1) End Sub こういうことをやりたいのですが これだとエラーになってしまいます。 方法を教えてください。
- ベストアンサー
- オフィス系ソフト
- ハイパーリンクの表示で質問の続きです。
これで大丈夫かな？ Sub test() Dim i As Long For i = 1 To Range("A65536").End(xlUp).Row Cells(i, 1).Hyperlinks(1).TextToDisplay = Cells(i, 1).Hyperlinks(1).Address Cells(i, 2).Value = Cells(i, 1).Hyperlinks(1).Address Next i End Sub ------------------- 有難うございました。完璧ですが、 ハイパーリンクのないセルのところでエラーになります。 ハイパーリンクのないセルは無視（エラーを無視）して次のセルの作業を指示したいのですが、・・・お願いします。 しばらくVBAを離れていまして思い出せません。すみません。
- ベストアンサー
- Visual Basic
- VBA最終列の取得/不規則な処理
VBAにて、最終列の取得ができません。 また、繰り返し処理を3列処理、step5、3列処理、step5…と繰り返し行う方法もご教授いただきたいです。 エクセルはo365を使用しております。 ①最終列の取得 実際は300列近くの表になります。 最終行は取得できたのですが、最終列がなぜかエラーも出ず、処理が行われません。 ②不規則な繰り返し処理 画像の水色部分のみ処理を行いたいです。 3列処理と記載したのですが、セル結合しているので、考え方が合っているのかも不明です。 塗りつぶされているセル一つ一つに処理を行いたいです。 また、行列共に可変します。 実行したいマクロは、選択したブックのSheets(1)の表の中の水色に入力されている文字列が「1」か「2」か判断するというものです。 「１」と入力されていれば → 別ブックのA1セルに１をカウント 「２」と入力されていれば → 別ブックのB1セルに１をカウント ※水色セルは参考で用意したものなので、実際は塗りつぶしされていません。 ※空白のセルもあります ①②の解消法のご教授をよろしくお願い致します。 =============================================== Option Explicit Sub kurikaeshi() Dim retu As Long, gyou As Long Dim File As Workbook Set File = Workbooks("test.xlsx") Dim ws1 As Worksheet, ws2 As Worksheet Set ws1 = File.Sheets(1) Set ws2 = ThisWorkbook.Sheets(1) Workbooks.Open FileName:=ThisWorkbook.Path & "/" & File For retu = 2 To ws1.Cells(4, ws1.Columns.Count).End(xlToLeft).Column 'ここが処理されません For gyou = 4 To ws1.Cells(ws1.Rows.Count, 2).End(xlUp).Rows If ws1.Cells(gyou, retu).Value = "1" Then ws2.Range("A1") = ws2.Range("A1") + 1 If ws1.Cells(gyou, retu).Value = "2" Then ws2.Range("B1") = ws2.Range("B1") + 1 End If Else Exit Sub End If Next gyou Next retu End Sub
- ベストアンサー
- Visual Basic
- IF構文の使い方
皆さんにはいつもお世話になっております。 エクセルVBAでご教授していただきたいことがあります。 1行目は空白行で、B2～CW51がデータがあるセルです。 A列は空白列で、B列（B2以降）にデータがある場合は、ListBox3の文字列を同行のcell(i , "A")に代入したいのですが。 下記のように、if構文を使ってみたのですが、うまくいきません。 Sub テスト_Click() Dim i As Integer With ActiveSheet For i = 2 To 51 If .Cells(i, "B") = "" Then .Cells(i, "A") = "" Else Cells(i, "A") = ListBox3.Value Exit For End If Next End With End Sub よろしくお願いいたします。
- ベストアンサー
- Visual Basic
- ｖｂａ ユーザーフォームにて質問
勉強のためにｖｂａにユーザーフォームを作っています。 画像のとおり青色が塗られている箇所に、ユーザーフォームで社員名、件数を 転記したいです。 ユーザーフォーム 社員名 件数 を入力したら範囲はC3からC15転記されます。 転記終わったら、D3からD15に転記。この作業をH列まで行いたいのですが、 C3の列以降転記できません。 お答えできる方いればよろしくお願いします。 Private Sub CommandButton1_Click() Dim rc As Long Dim retu As Long Dim Ctrl As Control If Me.txtComboBox1.Value = "" Then MsgBox "社員名を選択してください！", vbOKOnly Me.txtComboBox1.SetFocus Exit Sub End If rc = MsgBox("件数を入力しますか？", vbYesNo) If rc = vbYes Then MsgBox "実行する" Else MsgBox "中止しました" Exit Sub End If retu = Cells(2, Columns.Count).End(xlToLeft).Column + 1 Cells(3, retu).Value = Me.txtComboBox1.Value ←社員を選択 Cells(4, retu).Value = Me.txtsuzuki.Value ←売れた件数 Cells(5, retu).Value = Me.txttoyota.Value ←売れた件数 Cells(6, retu).Value = Me.txthonnda.Value ←売れた件数 For Each Ctrl In Me.Controls If Ctrl.Name Like "txt*" Then Ctrl.Value = "" End If Next Ctrl End Sub
- ベストアンサー
- Visual Basic
- VBAのループ処理について
VBA（Excel2000）にて、参考書等を見て下記のコードを作成しました。 「セルＡ1かＡ10において、同じ数値が続けて入力されたら、最後のセル(一番下のセル)をＢ列にコピーする。」 Sub ループ() Dim a As Long With Range("a1:a10") For a = 1 To .Count - 1 If .Cells(a).value <> .Cells(a + 1).value Then .Cells(a, 2).value = .Cells(a).value End If Next .Cells(.Count, 2).value = .Cells(.Count).value End With End Sub 上記の「For idx = 1 To .Count - 1」の意味が分かりません。 よろしくお願いします。
- ベストアンサー
- Visual Basic
- エクセルVBAで、文字列の検索方法について
先日、こちらで教えていただいたVBAがあります。 E列のセルの文字列の末尾が「計」のものを検索し、その行に色をつけるものです。 Sub iroiro() Dim x, y x = 1 Do If Right(Cells(x, 5), 1) = "計" Then For i = 2 To 5 Cells(x, i).Interior.ColorIndex = 3 Next End If x = x + 1 Loop Until Right(Cells(x, 5), 1) = "" End Sub これはばっちりで、助かっているのですが、今度は末尾ではなく、文字列中に「営業」という文字があるのを検索し、色をつけたいのです。 If Right(Cells(x, 5), 1) = "計" Thenを どう変えればいいのでしょうか？
- ベストアンサー
- オフィス系ソフト
- エクセル2002のVBAで太文字を検索したいのですが、
エクセル2002のVBAで太文字を検索したいのですが、 ＜状況＞ Ｂ列にチェックしたい文字が入力されています ＜やりたいこと＞ Ｂ列に入力されている文字の中から、太文字のみを抜き出して、 太字の見つかった行のＧ列に太文字のみを抜き出して複写したい ＜自作マクロの現状＞ セル全体の太文字検索は下記のマクロ「太字検索チェック１」で完成しましたが、 セルに記載してある文字の中で「一部は普通文字、のこり一部は太文字」と混在 しているセルの中身から太文字部分のみを別のセルに抜き出したいのですが、 そのマクロを「太字検索チェック2」のように書きました。 しかし「太字検索チェック2」の「 If dat.Font.Bold = True Then」の部分で 「型が違う・・・」のエラーで先に進みません。 どなたか、セルの中身の太文字のみを抜き出すマクロを教えてください よろしくお願いします Sub 太字検索チェック１() i = 3 Worksheets("テスト").Activate For Each myRng In Range("B:B") セル = "ｂ" & i If Range(セル).Font.Bold = True Then Cells(i, 7) = Cells(i, 2) ’太字のCells(i, 2)を Cells(i, 7) にコピー End If i = i + 1 If i = 1703 Then ’1703番地で終了 Exit For End If Next End Sub Sub 太字検索チェック2() i = 3 Worksheets("テスト").Activate For Each myRng In Range("B:B") 内容 = Cells(i, 2) 文字数 = Len(内容) For p = 1 To 文字数 dat = Mid(内容, p, 1) X=8+P If dat.Font.Bold = True Then ’１文字づつ太字を検索 Cells(i, X) = dat ’太字なら→Cells(i, X) にコピー End If Next i = i + 1 If i = 1703 Then Exit For End If Next End Sub
- ベストアンサー
- Visual Basic
補足
みなさん有難うございます。解決です。