レッスン-投稿一覧パソコン仕事５倍塾ポータル

投稿/コメントを表示します。

受講生さんの投稿

(投稿ID: 4183)

この講座を作っていただいてありがとうございます！っていうぐらいわかりやすく、何回も見直してます。

今回の質問は、文字が入った数値ex(13l)（じゅうさんパイプ）を数値のみの（１３）にしたい場合うまくinstr関数left関数にしてもうまくできません。

なにが原因かそして改善策をどうしたらいいのかおしえてください。
ちなみにＱＲコードを読んだときに区切りとして出てくる”ｌ”です。
もしかしたら”パイプ”と読まないのかもしれませんがこの区切りをなくし数値のみにしたいと思ってます。
よろしくお願いいたします。

2018/09/29 07:54

小川慶一さんのコメント

(コメントID: 5745)

受講生さん:

こんにちは。

理由として考えられることが多すぎます。

ので、いただいた投稿だけでは何とも言えません。

書いたプログラムを送ってください。エクセルファイルごとのほうがよいです。

「業務で使うファイルなので送付はできない」ということでしたら、自分でエクセルファイルを作り、そのファイルのどこかのシートのどこかのセルに「ex(13l)」という文字列を投入し、それを区切り文字「|」で区切って左右に分割しようとするなりの、書いて挫折したマクロも送ってください。
よろしくお願いいたします。

> この講座を作っていただいてありがとうございます！っていうぐらいわかりやすく、何回も見直してます。
>
> 今回の質問は、文字が入った数値ex(13l)（じゅうさんパイプ）を数値のみの（１３）にしたい場合うまくinstr関数left関数にしてもうまくできません。
>
> なにが原因かそして改善策をどうしたらいいのかおしえてください。
> ちなみにＱＲコードを読んだときに区切りとして出てくる”ｌ”です。
> もしかしたら”パイプ”と読まないのかもしれませんがこの区切りをなくし数値のみにしたいと思ってます。
> よろしくお願いいたします。

2018/10/01 00:50

ゲストさんのコメント

(コメントID: 5751) 添付ファイルのダウンロード権限がありません

小川先生
早急にお返事いただいてありがとうございました。

早速ですがおくります。
よろしくお願いいたします。

2018/10/03 15:37

小川慶一さんのコメント

(コメントID: 5752)

ゲストさん:

最初の投稿でファイル受領できています。
エラーがでてしまいましたか。それはすいません。システム担当に調査させます。

ファイル内容確認のうえ、またお返事差し上げますね。
よろしくお願いいたします。

> 小川先生
> 早急にお返事いただいてありがとうございました。
>
> 早速ですがおくります。
> よろしくお願いいたします。
>

2018/10/03 15:42

小川慶一さんのコメント

(コメントID: 5753)

ゲストさん:

添削を返送します。
このエクセルファイル、このまま講座用資料として公開させてもらっても良いでしょうか？

'[a], [b], [c]から、先々がかなり心配です。
'「ハナコのステップ」とか、しっかり学んでください。このままだと、あとあと早々に行き詰まります。
'基礎編フォローベーシックでなんとか。アドバンスドには太刀打ちできない、というくらいで終ってしまうでしょう。
'全問題、「エクセル上での結果が同じになった」で満足せず、「何も見ないで書いても小川さんが書いたのと同じ形になる」というところまで、身体に叩き込むつもりで動作練習してください。
'[a]プロシージャ名ひどいです
Sub a()
'[b]↓インデントいれましょう
Dim r As String


Range("A2").Value = InStr(Range("A1").Value, "本")
Range("A3").Value = Mid(Range("A1").Value, Range("A2") + 3)
Range("A4").Value = Left(Range("A3").Value, 3)
If Left(Range("A4").Value, 3) = "|" Then
r = Left(Range("A4").Value, 2)

Else: r = Left(Range("A4").Value, 3) '[c] 一行にまとめない


End If

End Sub

Sub kaitorei()
    Dim qr
    Dim hon
    Dim pp1
    Dim pp2
    qr = Range("A1").Value
    
    hon = InStr(qr, "本")
    pp1 = InStr(hon + 1, qr, "||")
    pp2 = InStr(pp1 + 2, qr, "|")
    
    Range("G20").Value = "hon"
    Range("G21").Value = hon
    
    Range("H20").Value = "pp1"
    Range("H21").Value = pp1
    
    Range("I20").Value = "pp2"
    Range("I21").Value = pp2
    
    Range("D22").Value = Mid(qr, pp1 + 2, pp2 - pp1 - 2)
    Range("E22").Value = Mid(qr, pp2 + 1)
End Sub

なお、この問題は、今は基礎編レベルの知識と実力しかないのでこういうゴリゴリした方法でしかやれませんが、発展編２レベルの知識と実力がつくともっと簡単に解けます。
今の段階では、こういうやり方でいくより仕方ないですね。

基礎編本編第３章の Instr 関数のところは再復習してください。Instr関すで "||" をさがしてたとえば26という数字が返ってきたなら、 "||" の左側の "|" が26文字目にあります。右側のは27文字目。
すると、 "||" のあとの文字は、28文字目、ということになります。
それから、何度も登場する値は変数に格納すること。基礎編本編第１章の「変数」以降を復習してください。

とりいそぎ。

> 小川先生
> 早急にお返事いただいてありがとうございました。
>
> 早速ですがおくります。
> よろしくお願いいたします。
>

2018/10/03 16:00

５倍速！メールマガジン

このメールマガジンの詳細はこちら

受講生の声

たった1ヶ月で人生が劇的に変わりました

佐藤信さん

役員クラスの方から高い評価を受けるようになりました。

佐賀県 - 岩本徹さん

今までまったく知らなかったショートカットキーを使いまくっています。

東京都 - 鷹觜慶さん

年齢60才間近、営業で外回りの時間が多い私でも退社時間が1-2時間程度早くなりました。

東京都 - 宗内隆明さん

受講前もすでにパソコン得意でしたが、そんな私でも受講して本当に良かったと思えた講座です。

東京都 - 佐伯とも子さん

ここまで包括的に仕事に役立つ深い学びを受けれた講座は初めてでした

東京都 - 飯田倫子さん

受講生の声をもっと見る

サイト運営者紹介

小川慶一講師/教材/システム開発者紹介

この学習サイトの教材制作、サポート、システム開発をすべてやっています。

より詳しい紹介はこちら

ショートカットワーク報告

2025年03月26日 22:33

CommaToXls-excel
初回でゴールド賞をとれた！

cat22さん

2025年03月26日 22:12

QuoteToXls-excel
ゴールド賞を達成したこと

cat22さん

2025年03月24日 22:28

QuoteToXls-excel
マイペースでも続いていること

cat22さん

2025年03月19日 20:10

TxtToXls-excel
初回でゴールド賞をとれた！

cat22さん

2025年03月18日 20:52

CommaSpaceToXls
プラチナ賞をとれたこと！

cat22さん

ショートカットワーク報告へ

ショートカットワークコメント

2025年04月16日 08:30

CommaToXls-excel
だいぶ間が空いてしまいました。すみません。実務での活用状況についても報告に含めていただければと …

小川慶一さん

2025年03月18日 09:07

CommaToXls
> エスケープ文字をつけ忘れてうまくいかなくてもあきらめなかったところ「自分ならできる」という…

小川慶一さん

2025年03月18日 09:06

QuoteToXls
> FnとWinキーを押し間違えてウィンドウ表示が変ってしまうところそのこと自体は問題ありませ…

小川慶一さん

2025年03月15日 13:23

TxtToXls
着実に上達されていると感じます (^^

小川慶一さん

2025年02月26日 16:37

TabTo-excel
> Ctrl＋Fn+Shift+End これは大変ですよ。僕も、4キー同時打鍵はしたくありませ…

小川慶一さん

ショートカットワーク一覧へ

コーディングワーク報告

2025年04月02日 21:01

複数の表の間でのマッチング
何も見なくてもスラスラ解けた

cat22さん

2025年04月02日 20:47

複数列の中から、最大値の格納されたセルの情報を出力する
昨日より早くかけたこと

cat22さん

2025年04月02日 20:37

最大値の格納されたセルの情報を出力する
昨日よりスピードがあがった

cat22さん

2025年04月01日 22:03

複数列の中から、最大値の格納されたセルの情報を出力する
動画の真似をしてかけたこと

cat22さん

2025年04月01日 21:27

最大値の格納されたセルの情報を出力する
（１）で類似問題を実施しているので、思ったより早く解けた

cat22さん

コーディングワーク報告へ

コーディングワークコメント

2025年04月16日 08:32

複数の表の間でのマッチング
実務での活用状況どうでしょうか。細かい操作ミスについては気にしないでください。速やかに無意識に修…

小川慶一さん

2025年03月18日 09:10

文字列を加工してデータ転記する(その4)
別のところでも書きましたが、イメージトレーニング大切です。次に出てきたときには瞬時に対応するぞ！…

小川慶一さん

2025年03月18日 09:10

文字列を加工してデータ転記する(その4)
こういうのは慣れです (^^

小川慶一さん

2025年03月18日 09:09

文字列を加工してデータ転記する(その4)
別海も悪いはないです。両方のパターンを自在に使い分けられるようになるとさらによいですね！

小川慶一さん

2025年03月18日 09:06

文字列を加工してデータ転記する(その5)
イメージトレーニングしましょう！

小川慶一さん

コーディングワークへ