- ベストアンサー
Excelのマクロ教えてください
HowOverの回答
- HowOver
- ベストアンサー率30% (17/56)
=left(a1,search(".",a1)-1) これでどう?
関連するQ&A
- Excel 2000 のマクロで、日付や文字列を変換する方法について
Excel 2000 のマクロを使用して、以下のようなことをしようとしているの ですが、方法がよく分かりません。 １．日付タイプのセルに「2008/8/2」と入力されている日付を、数値タイプの 「20020802」に変換したい。 ２．文字列タイプのセルに「横浜市西区1-2-3ABCホームズ」と入力されている 文字列を「横浜市西区１－２－３ＡＢＣホームズ」に変換したい。 （半角を全角に変換したい） よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルマクロに詳しい方
すいません教えて下さい。 例えば、A1のセルに30、A2のセルに5 A3のセルに7 といった感じで数字があるとして どこかの列のある位置 を基準として 例えば Ｃ列の先頭から A1のセルにある 数字の分だけ色分けるマクロってどのようになるのでしょうか この場合 C1からC30までが黒 C31～35までは緑 といった具合にしたいのです。 A列に入る数字は必ずしも 一定ではありません。 できましたら、 マクロを簡単に書いて頂けると大変うれしいです。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- Excel 2003のマクロについて
セルにある文字列に”-”を加え、別のセルに移したいです。 例/ABCDEFGHIJ→ABC-DEFGH-IJ としたいです。 文字列の“-”の入る位置は、「例/」の位置で固定です。 Excel2003を使用しています。 マクロ等で一発変換できる方法はありますか？ マクロ初心者なので、教えて下さい。宜しくお願い致します。
- ベストアンサー
- その他MS Office製品
- Excel VBA で フォルダ名の一部を一括変更（セルの値を取得して変更）
こんにちは。例を挙げます。よろしくお願いします。 まず、"ABC" という名前のフォルダがあるとします。 この"ABC"の中に、"00_あいうえお"というフォルダがあるとします。 ほかにも同じようなフォルダ："10_かきくけこさ123"、"01_しす45せそたち"、"67_つてと"があります。これらのフォルダ名には特徴があり、２桁の半角数字に始まり、半角アンダーバー、文字列という並びになっています。 さらに同じフォルダ"ABC"に、EXCELファイル"なにぬ89.xls"もあるとしましょう。 したがって今、フォルダ"ABC"には、４つのフォルダと１つのEXCELファイルがあります。 "なにぬ89.xls"の、セルA1には"1"、A6には"2"、A11,A16は"34","57"と数値が入っているとします。また、セルB3には"あいう"、B8には"かき"、B13には"しす4"、B18には"つてと"という文字列が入っています。 B3,B8,B13,B18の文字列は、必ず同じフォルダ"ABC"内のフォルダ名に含まれています。 マクロで行いたい内容：フォルダ名の左端の２桁の数字を置換する その詳細： "なにぬ89.xls"のセルB3の文字列"あいう"を含むフォルダ"00_あいうえお"のフォルダ名の２桁の数字"00"のうち、右の"0"だけ、セルA1の数値"1"に置換したいのです。（"00_あいうえお"→"01_あいうえお"へフォルダ名置換） 同じように、セルB8の"かき"を含むフォルダ"10_かきくけこさ123"の名前も、セルA5の数値"2"をもとに置換したいのですが、今度は２桁の数字が"02"になってほしいのです。（"10_かきくけこさ123"→"02_かきくけこさ123"へフォルダ名置換） 以上のことをふまえますと、 フォルダ名"01_しす45せそたち" は "34_しす45せそたち" "67_つてと" は "57_つてと" に変換したいということがお分かりいただけますでしょうか。 ４つの例しかあげませんでしたが、実際の"なにぬ89.xls"にはもっとたくさんのデータが、５行おきに並んでいます。他のセルには無関係の文字列や空白などが入っています。 セルの値でフォルダ名を部分一致検索し、セルの値でそのフォルダ名を置換する、ということができるでしょうか？ 説明が長くなりましたが、ご回答、お待ちしております。よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- Excelのマクロで（）内の文字を抽出して書き出したい
HTMLにあるテーブルの部分をコピペして貼り付けたExcelファイルがあります。 A～Cまでの3列が埋まっている状態で、D以降の列は空欄です。 C列に123(1112)というように、数字(数字)の記載になっている部分があります。 ()の前と、中は必ず半角数字で、桁は1桁～5桁までと幅広い状態です。 この()内の数値をD～F欄に書き出したいです（縦3列のものを、横3列として書き出したい） 数字(数字)という記載のセルは、必ず縦に3つ並んでいますが C列は膨大なセル数なうえに、数字(数字)という記述以外のセルも間に入っております（数字のみのセルか、空欄のセルです） 3つ並んでいる部分のみを探して、()内の数値を抽出し、D～F列に書き出すことは可能でしょうか？ 書き出す場所は、3つ並んでいるC列の最初のセルの横のD～Fだと助かります。 （数字(数字)がC6～8にあった場合、D6～F6に書き出される） なお、数字(数字)というセルはC列以外にはなく、4つ以上縦に並ぶ事もありません。 さすがにこのような内容を実行するのは不可能でしょうか？ もし可能でしたら、マクロを組んでいただきたいです・・・よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルで英語の頭のみ大文字にするマクロについて
Excel2003を使っています 英語の文字列で先頭の文字のみ大文字に変換する下記のマクロを作ってみましたが、記号・・・"("、")"、"/"などを含む文字列の場合、記号の後の先頭文字が小文字になってしまいます。 例 SOMEBODY (WHO) → Somebody (who) これをSomebody (Who) としたいのですがどうしたらよいでしょうか Sub Proper処理x() Dim セル As Range Dim 変換文字 As Strin For Each セル In Selection 変換文字 = StrConv(セル.Text, vbProperCase) セル.Value = 変換文字 Next End Sub ワークシート関数のProper()の場合、記号の後は大文字になります、その代わりCAN'TがCan'Tになってしまします。 Proper関数とStrConv関数では機能が違うのでしょうか 英数文字列の先頭文字を大文字にするマクロで、記号の後の文字を大文字にかつ、アポストロフィーの後のみは小文字にするマクロを作りたいのです。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルで英数のみを半角に変換するマクロ
エクセル２００３を使っています エクセルで英数のみを半角に変換するマクロの作り方を教えてください。 予め複数のセルを選択しておいて、それらに含まれる文字列の英数のみを半角に（カタカナは全角のまま）変換したいのです。 以前他のサイトで同様の機能のユーザー関数の作り方は見つけたのですが、マクロにする方法がわかりません。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルのマクロ
派遣切り後、事務職の就職がようやく見つかりました。 仕事の効率を少しでも上げて、より多くの業務処理をしたいので下記のマクロを作成したいと考えています。 １ヶ月前に書籍を購入して独自でできるか試したのですがダイレクトな情報が見つからず、基礎の部分だけはできたところです。 恐縮なのですがもし、できる方がいましたらぜひ教えて頂けませんでしょうか。 下記のようにSheet1のA列の数字を１つずつ検索して、sheet2にその数字があれば、sheet2のそのセル赤くする。 全部あればすべてのセルが赤くなり、無いところがあれば白いままというマクロです。何卒宜しくお願い致します。 ●sheet1のA列に下記のような数字が羅列(200行程)しています。 238062 238075 238096 238210 91518 238230 ●sheet2のA列に下記のような数字が羅列しています。 91518 238062 238075 238096 238210 238230
- ベストアンサー
- その他MS Office製品
- エクセル マクロで数値が変った時行挿入できますか
最近ＶＢＡを勉強しはじめた初心者です。 簡単なマクロを使ってエクセルシートを作成中しているのですが、以下の部分がどうしても分りません。 (1)ある列（例えばＡ列）に数字が入っています。 (2)その数字は、セル１個つき１桁から３桁（１から１００の場合）です。 (3)「１」「１」「１」と３セル並んでいたり、「２」「２」が２セルだったりと色々です。 (4)この数字が変化したとき、例えば「１」と「２」の間、「２」と「３」の間などに、 自動的に行挿入して、空白行を作りたいと思っています。 マクロでこのような事が可能でしょうか？ もし、お分かりになる方がおられましたら、ご教示の程お願いいたします。 どうぞよろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
お礼
回答ありがとうございます＾＾ 私が意図しているものとは少々違うところもあるようでしたが、参考にさせていただきました。 ご意見ありがとうございました。