VBA Excel カタカナだけを判別してwideとnarrowに変換する

Quick Edit Pencil
カタカナが含まれていれば全角カナに変更する 
文字列 = StrConv(文字列, vbWide) 'JIS全角にする
If StrConv(文字列, vbHiragana) <> 文字列 Then
	文字列 = 半角カナを全角カナに変える(StrConv(文字列, vbNarrow))
End If
カタカナが含まれていれば半角カナに変更する 
文字列 = StrConv(文字列, vbWide) 'JIS全角にする
If StrConv(文字列, vbHiragana) <> 文字列 Then
	文字列 = 全角カナを半角カナに変える(StrConv(文字列, vbNarrow))
End If
Function 半角カナを全角カナに変える(文字列 As String) As String

    Dim キャラクタ As String
    
    Dim Likeパターン As String
    Dim インクリメント As Integer
    
    Likeパターン = "[ｱｲｳｴｵｶｷｸｹｺｻｼｽｾｿﾀﾁﾂﾃﾄﾅﾆﾇﾈﾉﾊﾋﾌﾍﾎﾏﾐﾑﾒﾓﾔﾕﾖﾗﾘﾙﾚﾛﾜｦﾝｧｨｩｪｫｯｬｭｮﾞﾟｰ]"
    戻り値 = ""
    
    For インクリメント = 1 To Len(文字列)
        キャラクタ = Mid(文字列, インクリメント, 1)
        If キャラクタ Like Likeパターン Then
            戻り値 = 戻り値 & StrConv(キャラクタ, vbWide)
        Else
            戻り値 = 戻り値 & キャラクタ
        End If
    Next
    
    半角カナを全角カナに変える = 戻り値

End Function
Function 全角カナを半角カナに変える(文字列 As String) As String

    Dim キャラクタ As String
    
    Dim Likeパターン As String
    Dim インクリメント As Integer
    
    Likeパターン = "[ｱｲｳｴｵｶｷｸｹｺｻｼｽｾｿﾀﾁﾂﾃﾄﾅﾆﾇﾈﾉﾊﾋﾌﾍﾎﾏﾐﾑﾒﾓﾔﾕﾖﾗﾘﾙﾚﾛﾜｦﾝｧｨｩｪｫｯｬｭｮﾞﾟｰ]"
    戻り値 = ""
    
    For インクリメント = 1 To Len(文字列)
        キャラクタ = Mid(文字列, インクリメント, 1)
        If キャラクタ Like Likeパターン Then
            戻り値 = 戻り値 & キャラクタ
        Else
            戻り値 = 戻り値 & StrConv(キャラクタ, vbWide)
        End If
    Next
    
    全角カナを半角カナに変える = 戻り値

End Function

このブログの人気の投稿

カルチャーラジオ 日曜カルチャー「人間を考える 思いを伝えることば」

イメージ
3 月 17 日 日曜   午後8時00分 ～   午後9時00分 「人間を考える 思いを伝えることば」（3） 作家…島田雅彦 「思いを伝えることば」第3回は作家の島田雅彦さん。島田さんは過去の人たち、亡くなった人たちを蘇（よみがえ）らせ登場させるのが小説家だと言います。島田さんは既に亡くなった安部公房、中上健次など多くの作家と交流があり、交わした言葉に影響を受けました。今も夢に出てくるといます。現実の世には存在しない、いわば言語が作り出した世界「あの世」や「時間」など、島田さんの目線から「ことば」についてお話し頂きます。 シェアする 3 月 10 日 日曜   午後8時00分 ～   午後9時00分 「人間を考える 思いを伝えることば」（2） コピーライター…梅田悟司 「思いを伝えることば」第2回は広告制作をはじめ製品開発など幅広く活動しているコビーライターの梅田悟司さんです。梅田さんは自分の思っていること考えていることを言葉にして伝えることが大切で、そのためには自分の「内なる言葉」に目を向け高めることが必要であるといいます。今回は、ことばを生かす仕事に携わっている梅田さんにどうすれば思いを伝えることばを生み出すことができるのか、具体例を交えお話しいただきます。 シェアする 3 月 3 日 日曜   午後8時00分 ～   午後9時00分 「人間を考える 思いを伝えることば」（1） ＜全4回＞ 文筆家・エッセイスト…青木奈緒 「人間を考える 思いを伝えることば」。第1回は文筆家、エッセイストの青木奈緒さんです。青木さんの母方の曾祖父は幸田露伴、祖母は幸田文そして母のたまさんも文筆家として知られています。青木さんは、心を表すのが言葉だといいます。今回は曾祖父の幸田露伴、祖母の幸田文、母のたまさんそして青木奈緒さんと代々伝えられてきた言葉や座右の銘について、その言葉が発せられた背景や込められた思いと共にお話しいただきます。
Read more »

googleのキャシュは廃止されたんだ

https://www.suzukikenichi.com/blog/google-adds-links-to-the-internet-archives-wayback-machine-as-a-cache/ Google検索のキャッシュの代替としてWayback Machineのアーカイブが使われるようになる   投稿日：2024年9月17日   by  Kenichi Suzuki https://www.suzukikenichi.com/blog/cache-search-operator-no-longer-works-in-google-search/ Google、cache:コマンドを廃止。Google検索のキャッシュを完全に見られなくなる   投稿日：2024年9月25日   by  Kenichi Suzuki
Read more »

簡単　らじるらじるの聴き逃し番組、NHKラジオのストリーミングを保存・ダウンロードする方法　2019

イメージ
パソコン初心者でも簡単に保存・ダウンロードできる方法を紹介 ウェブブラウザと１つの無料ソフトだけでダウンロードが可能 パソコンはWindowsでもMacでもオッケー 使用するソフトは古くからある無料のVLC media playerを使います。 目次 ようこそ VLC media player （ ダウンロード ） （ インストール ） ダウンロード・保存の準備 （ m3u8ファイルのURLを取得する方法 ） （ NHKゴガクのm3u8ファイルのURLを取得する方法 ） ダウンロード・保存の実行 （ VLC media playerでストリーミングを変換／保存・名前を付けて任意の場所に保存 ） m3u8ファイルURLをブックマークレットで取得する （ 3mu8ファイルのURLと保存名をリストするBookmarkletの紹介 ） 補足 （ ブックマークレットの中身 ） （ 一括ダウンロード　コマンドラインとFFmpeg ） （ NHKラジオ聞き逃しJSONの取得、語学のxmlの取得 ） ようこそ データ通信料を節約したい。 聞き逃し番組をオフラインで聞きたい。 スマホや携帯プレイヤーに入れて聞きたい。 mp3、mp4でダウンロード。 本記事の内容は私的利用に限ります。 VLC media player （ダウンロード） VLCメディアプレイヤーの公式ダウンロード - VideoLAN VLC media playerダウンロードは窓の杜からも可能です。 「VLC media player」定番の無料メディアプレイヤー - 窓の杜 （インストール） インストール方法は、次の解説サイトをご紹介しておきます。 VLC Media Playerのダウンロードとインストール方法 - ぼくんちのTV 別館 Googleの検索リンクも貼っておきます。 VLC media player インストール方法 - Google 検索 ダウンロード・保存の準備 （m3u8ファイルのURLを取得する方法） ラジオ番組の保存・ダウンロードの肝は個別番組のm3u8ファイルのURLを取得する事です。 取得に特別なアプリは不要です。 インターネットブラウ...
Read more »

書字方向　横書方向変換スクリプト　左書きから右書きへ（コピペ用途）

左横書きを右横書きへ簡易変換します．（コピペ用途） 変換処理はウェブブラウザだけで完了．ネットワーク通信が発生しないので安心．注，複数行の場合は一行になりそう．また，句読点（符号），顔文字の正確な変換は１００％無理っぽ． 変換する文字列（横左方向→） テスト 変換した文字列（←横右方向） 書字方向　横書方向変換スクリプト　HTMLソース JavaScriptコード 変換する値（横左方向→） <form name="form1"> <textarea cols="50" name="textarea1" rows="5" value="1">テスト</textarea> </form> <input onclick="clickBtn1()" type="button" value="変換" /> <input onclick="clickBtn2()" type="button" value="クリア" /> <p>変換した値（←横右方向）</p> <p id="rtl" style="background-color: lightgrey; box-sizing: border-box; color: darkslategrey; line-height: 1.6; overflow: auto; padding: 1rem; text-align: right;"></p> <script> function clickBtn1(){ // 値を取得 const ta1 = document.form1.textarea1.value; const reversed = [...ta1].reduceRight((p, c) => p + c);// 配列に変換し右から左へたたみ込む。 document.getElementById(...
Read more »

エラーを解決　再解析ポイントバッファーにあるタグは無効です。

イメージ
OneDriveで良くあるエラー、PC上で同期が終わらない時や、ファイルやフォルダの移動や削除ができない時に有効。 解決方法はファイル権限の修復。Windowsのファイルシステムを修復します。 ディスクのプロパティの ツール タブから エラーチェック で チェック する 修復が必要なら、修復手順に従えば、ほぼ解決します。 cmdで　chkdsk /r /f　もできるけど、エクスプローラーからディスクのプロパティでするのが簡単。
Read more »

ブックマークレット　DOM　ソース変更

javascript: (function() { /*https://www.atmarkit.co.jp/ait/articles/0808/04/news124.html*/ /*https://into-the-program.com/removechild/*/ /*ヘッダのタグを削除*/ var scripts= document.head.getElementsByTagName('script'); let len = scripts.length; for (var i = 0; i < len; i++) { document.head.removeChild(scripts[0]); } var links= document.head.getElementsByTagName('link'); len = links.length; for (var i = 0; i < len; i++) { document.head.removeChild(links[0]); } var style= document.head.getElementsByTagName('style'); len = style.length; for (var i = 0; i < len; i++) { document.head.removeChild(style[0]); } /*クリップボードに保存*/ var clips = document.title; clips += '; '; clips += document.body.querySelector('p.size').textContent; clips += '; '; clips += document.URL; console.log(clips); /*イメージの集合要素を保存*/ var images= document.body.queryS...
Read more »

memo: ショートカットファイルを直接削除する

ショートカットファイルを直接削除する C:\Users\%USERNAME%\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup （一部カタカナ表示あり） C:\ProgramData\Microsoft\Windows\Start Menu\Programs\StartUp （一部カタカナ表示あり） レジストリから削除する　regedit コンピューター\HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run コンピューター\HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run コンピューター\HKEY_LOCAL_MACHINE\SOFTWARE\WOW6432Node\Microsoft\Windows\CurrentVersion\Run グループポリシー 「コンピューターの構成」→「Windowsの設定」 ＞light＜ ＞dark＜ ＞night-bule＜ ＞vibrant-ink＜ ＞wed＜
Read more »

blender4.1 レンダリング画像を左右反転する方法

イメージ
＞方法: コンポジティングを使用する レンダリング: 通常通りにシーンをレンダリングします。 コンポジティング: コンポジティングノードを使用して、レンダリング結果を左右反転させることができます。 「コンポジティング」タブに移動し、「Use Nodes」を有効にします。 「Image」ノードを追加し、レンダリング結果を接続します。 「Transform」ノードを追加し、X軸のスケールを-1に設定します。 最後に「Composite」ノードに接続します。 コンポジティングノードでの反転のしかたを初心者にもわかるように詳しく教えて . GPT-4o mini Blenderのコンポジティングノードを使用して画像を左右反転させる方法を、初心者向けに詳しく説明します。以下の手順に従ってください。 ステップ1: シーンをレンダリングする シーンを作成: Blenderでシーンを作成し、レンダリングしたいオブジェクトを配置します。 レンダリング: F12キーを押してシーンをレンダリングします。レンダリングが完了すると、画像が表示されます。 ステップ2: コンポジティングタブに移動 コンポジティングタブを開く: 上部のタブから「コンポジティング」を選択します。 ノードを使用する: 「Use Nodes」にチェックを入れます。これにより、ノードエディタが表示されます。 ステップ3: ノードを設定する レンダー結果ノードを追加: 右クリックして「Add」メニューを開き、「Input」から「Render Layers」を選択します。これがレンダリング結果を取得するノードです。 変換ノードを追加: 再度右クリックして「Add」メニューを開き、「Distort」から「Transform」を選択します。これが画像を変換するためのノードです。 コンポジットノードを追加: もう一度右クリックして「Add」メニューを開き、「Output」から「Composite」を選択します。これが最終的な出力ノードです。 ステップ4: ノードを接続する ノードを接続: 「Render Layers」ノードの出力（右側の出力ポイント）を「Transform」ノードの入力（左側の入力ポイント）に接続します。 「Transform」ノードの出力を「Composite」ノードの入力に接続します。 ステッ...
Read more »