プログラミング教育で賢い子を育てるサイト

エクセルのプログラムでデータの文字を自在に編集できる!

abekkan_LL.jpg

ようこそ!
「四児の父・あべっかん」のブログです。
子どもの家庭教育を中心に役立つネタを書いています。

エクセルのデータを修正したい

エクセル表のデータの一部を修正することってありますよね。

単純に文字列を置き換えるだけなら「置換」すれば簡単にできます。でも、決まりがあって、ある条件のときだけ修正する となるとそうはいきません。

例えば、「悪徳商会(株)」のように(株)がついているときに「株式会社」に変更したい。ただし「(株)熱造電機」のように前に株がついているときは変換しない、などというときどうすればいいでしょうか?

  • 「悪徳商会(株)」 → 「悪徳商会株式会社 あと株を株式会社に変換
  • 「(株)熱造電機」 → 「(株)熱造電機」  前株は変換しない 

InStrでキーワードの位置を探せ

VBAでプログラムを作れば可能です。やり方はいくつかありそうですが、その一つは。

  • 変数(KaishaMeiとします)にその会社名を代入する。
  • InStr関数を使ってKaishaMeiの中に「(株)」がいくつめにあるか探す
  • もし0か1以外、つまり1より大きければ(株)を株式会社に置き換える

KaishaMei = Cells(2,3).Value
Num = InStr(KaishaMei,   "(株)")
If Num > 1 Then
     KaishaMei = Left(KaishaMei,Num-1) & "株式会社" & Right(KaishaMei,Len(KaishaMei)-(Num+2))
End If

 

プログラムの中身まで見てもらわなくてもいいのですが、ここで言いたいことは、エクセルのセルに書かれた
データを変数に入れてしまえばVBAのプログラム内で自在に検索や編集ができる
ということです

エクセルのメニュー画面からの操作や関数ではできない複雑なこともVBAのプログラムを作ってしまえば自在にできるのです。

10/28に予定している勉強会では、超入門から始めて「文字列の編集」の方法を説明します。


(大人向け)エクセルプログラミング超入門勉強会(次回 2018/10/28)


10月28日(日)13:30~ 横浜で行います。

エクセルの表の編集に時間がかかっていることはありませんか? 例えば

  • 「担当者ごとの売り上げの表」から「製品ごとの売り上げの表」を手作業で作っている
  • 複数の表のつじつまが合っているかを目視で確認している
  • 国語、数学、英語、などの科目ごとのテスト結果の表から、生徒ごとの成績表を手作業で作っている
  • 複雑な関数を使い過ぎて修正できない

こういった作業は、エクセルでプログラムを作ってしまえば自動で行えるようになります。
10/28に予定している勉強会では、超入門から始めて「文字列の編集」の方法を説明します。

申し込みはこちら↓から

  • 日時:2018年10月28日(日)13:30~16:30 入門、文字列の編集
  • 場所:横浜 横浜駅から徒歩5分の貸会議室
  • 受講料:5,000円(事前振り込みでお願いします。詳細は申し込み後に連絡します)
  •  (前月に受講した方は3,000円)
  • 定員:10名
  • 持ち物:筆記用具
  • 1か月間のサポートサービス付き

パソコンを使わない説明がメインとなります。一部のみ交代でパソコンの操作を行います。

Follow me!

About あべっかん

私には4人の子どもがいます。子どもの教育について体験したこと、考えたことをこのサイトで伝えます。 また、私はITエンジニアで、@ITというサイトにコラムを書いています。このサイトでは特にプログラミング教育についても伝えていきます。 学校でプログラミング教育が導入されることになりました。 子どもにプログラミングを教えることは何のためになるのか? をこのサイトで伝えます。 そもそも親世代は、プログラマーを目指した人以外はプログラミングのことを知らないと思います。そんなかたに、プログラミングってこういうものなんだよ、やってみると面白いんだよ、というのを体験して知ってもらいたい、と私は考えています。 リンクやシェアは大歓迎です。いいネと思った記事がありましたらどんどんシェアしてください!
URL :
TRACKBACK URL :

Comment

*
DigiPress

eight − 7 =

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください

Comment on Facebook

Return Top