- ベストアンサー
Excel VBAでセル内が"-"の時の判別方法
- みんなの回答 （4）
- 専門家の回答
質問者が選んだベストアンサー
Asc 関数で同じ値が返るかどうか。 MsgBox Asc("-") & "_" & Asc(.Cells(a, b).Value)
その他の回答 (3)
- Dxak
- ベストアンサー率34% (510/1465)
＃２です う～ん？少々気になるだけど・・・OSのバージョンとExcelのバージョンは？ ＳＰまたはＳＲまでお願いね
補足
OSはXPSP3、Excelは2002SP3です。
- Dxak
- ベストアンサー率34% (510/1465)
> セル内の値が-のとき と、言うのが、数値でマイナスの話？ そっちなら、If cells(a,b) < 0 Thenにすればよいと思うけど・・・ 文字なら普通に、引っかかるよ
補足
数値ではなく文字です。 先ほどの補足では両方全角になっていますね。notepadやエディタでは半角で表示されたのですが…。 文字コードが原因だったりするのかな？ －
- qualheart
- ベストアンサー率41% (1451/3486)
試してみましたが「-」はちゃんと認識しましたが・・・ もしかしたら全角の「－」になってるとかじゃないですか？ ちなみに私が試したのは以下の簡単なVBAです。 If Cells(1, 1) = "-" Then Cells(1, 2).Value = "True" Else Cells(1, 2).Value = "False" End If
補足
－ "－" セル内、プログラムとも半角になっています。（上の2つはそれぞれからコピーしました）
関連するQ&A
- エクセルVBA 配列の書き方とセルへの一括表示方法
エクセルのVBAで 下記のようなプログラムを作成しています。 1行目はタイトル行で E列が空白になるまで、 各行のE列～H列の値を変数に入れて、 最後に一括で別の列・行にそれぞれの値を表示・書込したいと思ってますが、 どうもVBAは初めてでよくわかりません。 Dim aaa As String Dim bbb As String Dim ccc As String Dim eee As Double intRow = 2 Do Until Cells(intRow, 5).Value = "" aaa = Cells(intRow, 5).Value) bbb = Cells(intRow, 6).Value) ccc = Cells(intRow, 7).Value) ddd = Cells(intRow, 8).Value) intRow = intRow + 1 Loop aaaの各変数を2行目のA1～intRowまで bbbの各変数を2行目のB1～intRowまで cccの各変数を2行目のC1～intRowまで dddの各変数を2行目のD1～intRowまで セルに一括して表示したいのです。 配列の書き方と、セルの範囲に表示・書込する方法を どうかご教示下さい。お願いいたします。
- ベストアンサー
- Excel（エクセル）
- VBAのプログラムについて
VBAでプログラムを書いて以下のようなことを実行したいと考えていますが方法がよくわかりません。 ***1002とセルに入力されているセル列に対して、先頭の文字がaaaであったときに、その後ろの1002を計算して数値に変換するという作業です。 仮に、B列でaaa1002とあった場合に、セルの値がaaaであったときのみ、後ろの1002を100×10^2=10000と計算してB列に対応させてC列に出力したいと考えています。 B列 C列 1行目 aaa1002 10000 2行目 aac1001 空白 3行目 aaa4701 4700 ： ： ： 具体的なプログラムのコード、もしくはこのような関数を使えばいいなどヒント等でも構いませんので 教えてください。よろしくお願いします。
- 締切済み
- Visual Basic
- エクセルVBAでセル選択
エクセル2000でリストを作成し、ＶＢＡで編集しようとしています。 Ａ列に入力されているコードの先頭に「’」をつけて文字列とするための関数をＢ２のセルからＡ列のデータが入力されている最後のセルの隣までコピーしたいと思っています。 Ａ列の最終セルを取得するＶＢＡは分かったのですが、その値をＢ列の選択範囲として使用する方法がわかりません。 エクセルＶＢＡは全くの初心者です。 どなたか教えてください！
- ベストアンサー
- オフィス系ソフト
- 複数セルを結合して一つのセルにしたい
エクセル関数の質問です。 A列のセルに、数字が並んでいます。 aaaという部分はカテゴリーを示すものです。 B列のセルに同じカテゴリーの別の数値を連結させ、スペースで区切ってひとつのセルに表記させるにはどうすればいいでしょうか？ concatenate関数を組み合わせて式を作ろうとしたのですが、うまく出来ませんでした。 VBAやマクロ、ユーザー定義関数になっても構いません。 ご教授ください。 A B aaa_0001 aaa_0002 aaa_0003 aaa_0002 aaa_0001 aaa_0003 aaa_0003 aaa_0001 aaa_0002 bbb_0012 bbb_0013 bbb_0013 bbb_0012 ccc_0017
- ベストアンサー
- オフィス系ソフト
- エクセルvbaでのセルの情報を貼り付け方法
vba初心者です。sheet1にあるセルの情報をsheet2にあるセルに貼り付けようと考えています。 下記のようにプログラムしました。 If Cells(Line, 6).Value = "" Then Cells(Line, 6).Value = "データがありません" Cells(Line, 5).Value GoTo コピー貼り付け End If コピー貼り付け: Cells(Line, 5).Copy 'コピーする Worksheets("輸入Parts").Range("A2").PasteSpecial Paste:=xlPasteValues '値を貼り付け 問題はコーピー貼り付けの箇所でRange("A2")ではなくA列の最初の空白のセルに貼り付けるようにしたいです。 どなたかお力をお貸しください。
- 締切済み
- Excel（エクセル）
- エクセルVBAでの文字列抽出とセルへの出力
エクセルVBAで文字列を検索して、検索した文字列を他のセルへ出力する方法を探しております。状況を図で説明すると、 A1セル：aaa\bbb\item1\ddd A2セル：aaa\bbb\ccc\item2\ddd A3セル：aaa\bbb\ccc\ddd\item3\eee このような状態からitemを検索して、B1セルに B1セル：item1 B2セル：item2 B3セル：item3 と表示させたいです。エクセルVBA初心者なものでRegExpを使うのかな、というところまではたどり着きましたが、そこから先にすすめません。 何か良い方法をご存知の方、教えていただきたいです。よろしくお願いいたします。
- 締切済み
- オフィス系ソフト
- セルの値を含む文字列を検索する方法
エクセル2010を使っている者です。 セルの値を一部として含むかどうかを調べることはできますか？ countifだとＡ列のセルとＢ列のセルの値が一致してないとならないし、findだと*aaa@tokyo.co.jp* のようにセルとして指定することができないし。。 例えば以下のような表でＢ列においてＡ列のそれぞれのセルについて値が含まれているか を調べたいと思っております。 よろしくお願いします。 Ａ列 Ｂ列 aaa@tokyo.co.jp aaa@tokyo.co.jp; bbb@tokyo.co.jo; ccc@tokyo.co.jp bbb@tokyo.co.jp ddd@tokyo.co.jo; eee@tokyo.co.jp; fff@tokyo.co.jp ccc@tokyo.co.jp ggg@tokyo.co.jp; hhh@tokyo.co.jp; iii@tokyo.co.jp ・・・ ・・・・・・・
- ベストアンサー
- オフィス系ソフト
- VBAで行範囲を抽出して隣のセルに貼り付ける
Excel VBA初心者です。 A列にある以下のデータの「aaa」から「bbb」の範囲を検索して 切り取り、隣のセル(B列)に貼り付けるマクロを教えてください。 実際のデータは「aaa」から「bbb」の範囲のデータが500個くらい あるので、隣のセルに貼り付けていく作業をマクロで処理したいと 考えています。 ・マクロ処理前 列A aaa data0 data1 data2 bbb datax ------------ aaa data3 data4 data5 bbb datay ------------ aaa data6 data7 data8 bbb dataz ・マクロ処理後 (処理前のdatax、datay、datazは列Aに残ったままで構いません) 列A 列B 列C 列D 空白 aaa aaa aaa 空白 data0 data3 data6 空白 data1 data4 data7 空白 data2 data5 data8 空白 bbb bbb bbb
- ベストアンサー
- Visual Basic
- Excel VBAでの値の比較
お世話になります。 Excel VBAでの値の比較方法についてご教授頂きたく存じます。 下記のような値がセルに入っていると仮定しまして、 セルA1とセルG1を比較する セルA2とセルG2を比較する セルB1とセルH1を比較する セルB2とセルH2を比較する 値が違う場合のみ、A列、又は、B列のセルの色を変更したいのですが・・・。 下記例の場合であれば、B1とA2がセルの色が変われば良いです。 A列 B列 G列 H列 1行 1 1 1 2 2行 2 2 3 2 VBAで実現したいと思います。 何卒、宜しくお願い申し上げます。
- ベストアンサー
- オフィス系ソフト
- Excel VBA %の入ったセル
困りました、、、 ＶＢＡを使って A×30%+15000 これが入ったセルＢ２と たとえば250000が入ったセルＢ２を掛け算したいのですが （Ｂ2の数字は固定ではなくいろいろな数字が入ります） 文字列が入っていることにより うまくいきません 今は仕方なくＭｉｄ関数で数字を抜き出して使っているのですが なにかよい方法はないでしょうか よろしくお願いします<m(__)m>
- ベストアンサー
- Visual Basic
お礼
セルの値の方は63が返ってきました。 .Cells(a,b)="-" の代わりに Asc(.Cells(a, b).Value)=63 で実行すると真が返ってきたので、この方法を使いたいと思います。 回答ありがとうございました。