Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

33028 / 76807

←次へ　｜　前へ→


	【49006】Re:複雑な文字列処理

Hirofumi - 07/5/20(日) 22:55 -


	引用なし

	パスワード

アルファベットの所は、元素記号か何かの様ですね？
その場合、今のままだと

配分規格が例えば、2Cr×45C×2Fe×7Si×1P×14Hで
配分要素がCだと、Crの所から計算してしまいますので
以下の様に変更して下さい

　　For i = 0 To UBound(vntList)
　　　　'有る場合はForを抜ける
'　　　　If InStr(1, vntList(i), vntElement, vbBinaryCompare) > 0 Then '★削除
　　　　If vntList(i) Like "*" & vntElement Then '☆追加
　　　　　　Exit For

1 hits

▼

【49003】複雑な文字列処理 ＧＨＱ 07/5/20(日) 21:13