- ベストアンサー
vbaプログラムで分かりません。
excelのsheet2のA列には1または2または5が入っていて、B列には00542,00984などたくさんの文字列が入っています。 それでA列の数字が2かつB列が2文字目降(054,098)の3文字分が098または099なら、sheet3のA列に0を出力というプログラムを作っています。 どうやったら良いか分かりません。 分かる方、教えてください。 2文字目以降というのが分かりません。
- y6411y
- お礼率44% (47/105)
- その他（プログラミング・開発）
- 回答数1
- ありがとう数2
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
関連するQ&A
- vbaプログラム
excelの列に文字列があり、その文字列をvbaを使って他のシートに貼り付けます。 空白になるまでの文字列をコピーして貼り付けます。for文を使って、null-1までコピーします。 配列を使って、そのnull-1までの添え字の値を取得したいのですが、どのようなプログラムを作ればいいのでしょうか？ sheet1のA5以降をコピーして(空白になるまで),それをsheet2のA5以降にコピーして、その列数を反映させたくて。。。 for文と配列を使いたいのですが、よろしくお願い致します。
- ベストアンサー
- その他（プログラミング・開発）
- 文字のチェック
excelのvbaでsheet2のA列には1または2または5が入っていて、B列には00542,00984などたくさんの文字列が入っています。 それでA列の数字が2かつB列が2文字目降(054,098)の3文字分が098または099なら、sheet3のA列に0を出力というプログラムを作っています。下記が作成したプログラムなのですが、if文の型が違うというエラーが出たり、エラーが無くても表示されなかったりします。 ご指摘ありましたら、よろしくお願いします。 Sub Macro1() ' ' Dim i As Long For i = 1 To 5 If Mid(Sheets(Sheet2).Cells(i, 2), 2, 3) = "'098" Or Mid(Sheets(Sheet2).Cells(i, 2), 2, 3) = "'099" And Sheets(Sheet2).Cells(i, 1) = 1 Then Sheets(Sheet2).Cells(i, 3).Value = 0 End If Next ' ' End Sub
- ベストアンサー
- その他（プログラミング・開発）
- VBAでこのプログラムの作り方
最近VBAを勉強し始めた初心者です。 Excel上でコマンンドボタン１つで Ｄ１８～Ｈ１８からＤ２２～Ｈ２２の５×５の２５マス（Ａシート） と Ｍ１８～Ｑ１８からＭ２２～Ｑ２２の５×５の２５マス（Ｂシート） それぞれに１～７５の乱数を同時に発生させ一定時間、数字を回転させたあと数字を表示させたいのですがどのようなプログラムを組めばよろしいですか？ ただしＡシート内での数字の重複、Ｂシート内での数字の重複は起きないものです。 ＡシートとＢシートの数字の重複はＯＫです。 数字はＡシート２５マス、Ｂシート２５マス全て同時に回転させたいです。 乱数を回転させ数字を表示させるプログラムは For = i = 0 To 100 Range("○○").Value = Int(Rnd * 75) + 1 Next i です。 よろしくお願いします。
- ベストアンサー
- Visual Basic
- excel vba 検索の方法について
excel vba 検索の方法について sheet1とsheet2があり sheet1のA列に10列(全て8桁の数字)文字が並んでいます。 sheet2のA列には1000列(全て8桁の数字)文字が並んでいます。 sheet1のA列とsheet2のA列で同じ文字がある場合 sheet2のA列の同じ文字の隣のsheet2のB列に◎がつくような vbaが書きたいです。 A列の文字は消したり、文字を変えたりします。 コマンドボタンに書いて、ボタンを押せば B列に◎がつくようにしたいです。 ご教授お願いします。
- 締切済み
- Visual Basic
- VBAのプログラムに関してです
VBAに関する質問です。 いま、A列に0～4の数字が順番に繰り返し記入されていて（数字の数はランダム）、B列に適当な値が記入されています。A列の中から1を探しだして（１つ上の行の数字が0）、 その行から１つ戻ったB列の値をC列に記入、A列の次の0～4の繰り返しで同じ条件の1を探してその行から2つ戻ったB列の値をD列に記入する。といったことをA列が空白の行になるまで繰り返し行うというプログラムを教えてほしいです。お願いします。 例） A：00011112233400001123334400011111122233400000－ B：12345678912345678912345678912345678912345678－ となってるA列のそれぞれの0～4の塊の最初の1をさがしてそれに対応するBをそぜぞれ求めていくというものです。 この場合だと実行結果C・D列には C：379 D：688 となってほしいです。
- ベストアンサー
- Visual Basic
- VBA
エクセルVBAについて教えてください。 シート１ Ａ列 Ｂ列 Ｃ列 Ｄ列 Ｅ列 Ｆ列 ・・・ 商品Ａ 商品Ｂ 商品Ｃ 商品Ｄ・・・ 日付 名前(1) 3 2 1 日付 名前(2) 1 3 ・ ・ ・ ・ ・ ・ ・ ・ ・ ・ ・ ・ ・ ・ ・ ・ ・ ・ シート２ Ａ列 Ｂ列 Ｃ列 Ｄ列 Ｅ列 日付 名前(1) 商品Ａ 3 商品Ｃ 2 商品Ｄ 1 日付 名前(2) 商品Ｂ 1 商品Ｃ 3 ・ ・ ・ ・ ・ ・ ・ ・ ・ ・ ・ ・ 上記のような、エクセルで作ったシート1があります。 これを、シート2のようにコピーしたいと思っています。 商品は20列あり、数字が入っている列と入っていない列があります。 数字が入っている列の商品と数字をコピーして、すべてコピーが 終わったら次の行のコピーしていく。 行は100ほどあります。 よろしくお願いします。
- 締切済み
- オフィス系ソフト
- EXCELのデータベース利用について（VBA）
VBA初心者の者です。 下記の様なEXCELファイルを作りたいのですが、どのようにすれば良いのか まったくわかりません。 ACCESSでの構築が簡単なのかもしれませんが、データ量がそれほど多くないことと 職場にACCESSがないため、可能であればEXCELで構築したいと考えています。 私自身、プログラムの知識がなく、EXCEL VBAのサイトを確認するのですが、いまいち どうすれば良いのかわかりません。 ぜひご教授の程よろしくお願いします。 3つのシートの構成は以下になります。 【入力シート】 A1セルに文字列（A～Z）入力欄 【○○データシート】 A列に A～Z の文字列 B列に 001～100までの数値 C列に 001～100までの数値 D列に 001～100までの数値 E列に 001～100までの数値 例） A列 B列 C列 D列 E列 1 A 001 2 B 001 002 003 004 3 C 003 4 D 002 003 【▽コマンドシート】 A列に 001～100までの一意の数字 B列に 文字列（コマンド） C列に 文字列（コマンド詳細） 例） A列 B列 C列 1 001 xx blank 2 002 xxx△ xxx 3 003 xxxx x○ 4 004 xxxxx xxx 【欲しいVBA】 １、入力シートのA1セルに○○データシートのA列に該当するA～Zの 文字列を入力。 ２、○○データシートのB列～F列までの数値を参照 ３、2の数値において▽コマンドシートのA列に記載ある番号と紐づけを行い、 ▽コマンドシートのB列、C列に記載がある文字列を入力シートのB列、C列にコピー ※コピー時は▽コマンドシートの書式や体裁情報も含めてコピー。 例としては以下になります。 入力シートの A1セルにDを入力した場合は 入力シート A列 B列 C列 1 D xxx△ xxx 2 xxxx x○ 3 以上、ご教授よろしくお願いします。
- ベストアンサー
- その他(業務ソフトウェア)
- Excel vba 条件検索？について
できるのかどうかわからないのですが Sheet1 にIPアドレスの一覧があり Sheet2 にA列に192.10.2.* B列にhonsya と書いた一覧があるとして （例に挙げてるIPは適当です・・・。） Sheet1のIPアドレスの第３オクテッド目までの値とSheet2のA列の第３オクテッド目までの値を比べてSheet2の値に該当したものB列の値を出力するその際に 出力データの前後に文字を足して出力。 Sheet1にあるデータ分を行い データは出力したデータの下に 出力していく といった形をとりたいのですが 本当にできるのでしょうか？
- 締切済み
- その他（プログラミング・開発）
- エクセル VBAで困っています
エクセル VBA初心者です。プログラムの管理をしたいのですが。２つのブック（前月と当月）を比較して削除されたもの、追加されたもの変更されたものを調べたいのですが。Book１のSheet1のA列にプログラム名、B列にプログラムの変更日付があります。同様にBook２のSheet1のA列にプログラム名、B列にプログラムの変更日付があります。この二つのシートを比べてプログラムが増えたもの、減ったもの、変更日が変わったものの3点をBook３のSheetに書き出したいのですが。何卒宜しくお願いします。
- 締切済み
- その他（ビジネス・キャリア）
- エクセル VBA
エクセル VBA初心者です。プログラムの管理をしたいのですが。２つのブック（前月と当月）を比較して削除されたもの、追加されたもの変更されたものを調べたいのですが。Book１のSheet1のA列にプログラム名、B列にプログラムの変更日付があります。同様にBook２のSheet1のA列にプログラム名、B列にプログラムの変更日付があります。この二つのシートを比べてプログラムが増えたもの、減ったもの、変更日が変わったものの3点をBook３のSheetに書き出したいのですが。何卒宜しくお願いします。
- ベストアンサー
- その他(業務ソフトウェア)
お礼
ありがとうございます。 ためしてみます。