エクセルの学校：全文検索：Hyper Estraier： SetPhonetic

Results of 1 - 1 of about 48 for SetPhonetic (0.000 sec.)

[[20090214104017]]: #score: 13344; @digest: 3eb9ff2c7ba3d7a07611281956af7ca9; @id: 42072; @mdate: 2009-02-14T04:38:32Z; @size: 2031; @type: text/plain; #keywords: takasweet (7748), 視等 (7748), rnglist (6898), 株式 (6584), 社dd (6466), bbbbbbbbb (6309), aaaaaaaaaa (6024), 誤変 (5599), setphonetic (5576), 式会 (5519), 除& (4689), ガナ (3582), 社aa (3564), ナ情 (3324), リガ (2984), 全シ (2255), フリ (2038), ト文 (1639), ブブ (1549), 会社 (1348), 目視 (1045), 左側 (970), sample1 (937), ン] (804), 了" (791), 象は (688), 換後 (628), クテ (512), 先頭 (493), 明確 (475), ィブ (470), 挿入 (451); 『マクロで特定の文字列を削除&フリガナ挿入』（takasweet）
一つのブックに複数のシートがあり A1のセルにデーターが入っているとします。例えば会社名で株式会社AAAAAAAAAA ・・ BBBBBBBBB株式会社・・ CCCCC株式会社DDDDDD 先頭にきている株式会社の文字列のみ削除をして A1の左側に新しい列を挿入してそのセルにフリガナをふりたいのですがどうすればよいでしょうか? 対象は一つのブックの全シートです。 [エクセルのバージョン] Excel2003 [OSのバージョン] WindowsXP です。宜しくお願い申し上げます。 ---- こんにちは。かみちゃんです。 > 先頭にきている株式会社の文字列のみ削除をして > A1の左側に新しい列を挿入してそのセルにフリガナをふりたい以下のような感じではいかがでしょうか? A列のデータが入力しているデータであれば、 rngList.SetPhonetic は不要かもしれませんが、どこかから、貼り付けしてきているデータであれば、フリガナ情報をもっていない場合がありますので、上記コードで、ふれがらテキスト文字列を取得しますが、誤変換する場合もありますので、変換後は、目視等で確認したほうがいいです。なお、以下のコードは、アクティブシートの場合です。 Sub Sample() Dim c As Range Dim rngList As Range With ActiveSheet.Range("A1") Set rngList = .Resize(.Offset(.Parent.Rows.Count - .Row).End(xlUp).Row - .Row + 1) End With rngList.SetPhonetic For Each c In rngList If Left(c.Value, 4) = "株式会社" Then c.Value = Mid(c.Value, 5) End If c.Offset(, 1).Value = Application.GetPhonetic(c.Value) Next MsgBox "終了" End Sub > 対象は一つのブックの全シートです。以下のような感じで、アクティブブックの全シート名が順番に取得されますから、参考にして、ご自身で少し考えてみてはいかがでしょうか? Sub Sample1_1() Dim ws As Worksheet For Each ws In Worksheets MsgBox ws.Name Next End Sub もし、わからなければ、何がわからないかを明確にして聞いてみてください。 (かみちゃん) 2009-02-14 12:24 ---- ありがとうございます。少し難しいですがトライしてみます。 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/200902/20090214104017.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ