- ベストアンサー
フリガナのついてる本なんてあるの？
ponntaの回答
フリガナ付きの本は見たこと無いね～ 基本的には英語を調べるのが手っ取り早いのではないかな？ 大抵、内容を表す英単語、単語の中から数文字取り出したもの、複数の単語の頭文字を並べたものです。 因みに私は Dim：ディム apple：アップル as：アズ Integer：インテジャー とか呼んでます。 因みにアップルはりんごの数とかを表す為の変数のときね、 りんごと関係ないときはエー・ピー・ピー・エル・イー
関連するQ&A
- 階乗のマクロ
階乗のマクロを作りたいのですが、全然できません。どこを変えたらいいのか教えて下さい。ちなみに今こうなっています。 ------------------------------------------------ Sub exam5() Dim intA As Integer Dim intB As Integer Dim intC As Integer intA = Application.InputBox("数値を入力してください。") intB = (intA - 1) intC = (intA) * (intB) MsgBox (intC) End Sub Function kaijou(intA As Integer, intB As Integer) As Integer kaijou = intA * intB End Function ------------------------------------------------ どうかお願いします。
- ベストアンサー
- Visual Basic
- エクセルをHTMLとして貼り付けるとふりがなが表示される
Excel2000を使っています。 エクセルで作った表を、OutLook Express 等のhtmlを編集できるエディタ （htmlメールを作る）にコピー＆ペーストすると、漢字のふりがなが表示 されてコピーされます。 これを回避する方法はあるでしょうか？ 今は、コピー前に次のマクロでふりがなを削除してから 貼り付けています。 Sub Hurigana() Dim c As Range For Each c In Selection c.Characters.PhoneticCharacters = "" Next End Sub この作業も面倒なので、コピー時にふりがな情報を除いてコピーした いのですが、こんな事は可能なのでしょうか？ ご存知の情報がありましたら、よろしくお願い致します。
- ベストアンサー
- オフィス系ソフト
- エクセル マクロ ループ処理の構文について
お世話になります。エクセル初心者です。 i < j の関係があるときに、それぞれの数値をfor構文でループを回したいです。 ｉ の数値は外部から入力される前提です。 現在、以下のような構文を考えています(istartとiendは外部から決められた数値とします）が、 この場合、jendはiend + 1とすれば良いのですが、jstartはどのように入力すれば良いでしょうか？ 修正箇所を指摘（もしくは全文修正）していただけると、非常に助かります。 よろしくお願いいたします。 Sub test() Dim i As Integer Dim j As Integer Dim istart As Integer Dim iend As Integer Dim jstart As Integer Dim jend As Integer istart = 1 iend = 50 For i = istart To iend For j = jstart To jend '実行したい内容 Next Next End Sub
- 締切済み
- Visual Basic
- マクロで列を挿入してふりがなをふる
全てのシートにあるA列にはいっている漢字を左側に 列を挿入してそこにふりがなをふりたく、 素人なりに下記のソースを書いたんですが、 わけわからんところに挿入されるは無茶苦茶になってしまいました。 どなたか添削していただけないでしょうか？ Sub フリガナ挿入() Dim ws As Worksheet Dim r As Range For Each ws In Worksheets For Each r In Range("A1", Range("A65536").End(xlUp)) Columns("A").Insert Shift:=xlShiftToLeft Range("A1" & r.Row).Value = Application.GetPhonetic(r) Next Next End Sub
- ベストアンサー
- オフィス系ソフト
- エクセルマクロに関する質問
最近、エクセルマクロを始めてたのですが、下記のような状態で困っています。 プログラムを実行した際に、Cells((I1 + I5), I6)のセルに計算式がはいって欲しいのですが、 現状では計算結果が入るだけになってしまっています。 また、単純に文字列に変換してしまうだけだと、変数が邪魔になって式になってくれません。 誰かお分かりになる方がいましたら、教えてください。 Dim I1 As Integer Dim I2 As Integer Dim I3 As Integer Dim I4 As Integer Dim I5 As Integer Dim I6 As Integer Dim I7 As Integer Dim I8 As Integer Cells((I1 + I5), I6) = Cells((I1 + I5) - 2, I6) + Cells((I1 + I5), I6 - 2) - Cells(I1 + I5, I6 - 1)
- ベストアンサー
- その他（プログラミング・開発）
- Access フリガナ変換について
お世話になります。 Access2010 以前Access2003で作成したmdbがあります。 そのmdbの情報入力フォームには、いくつかのテキストボックスがあり、 「案件名」テキストボックスに入力すると、その下の「案件名フリガナ」 テキストボックスに自動的にフリガナが入力されるようにしてます。 フリガナの自動入力については、「案件名」テキストボックスの更新後処理の イベントで、 **************************** Private Sub 案件名_AfterUpdate() If IsNull(Forms![情報入力]![案件名]) = False Or Len(Forms![情報入力]![案件名]) > 0 Then Forms![情報入力]![案件名フリガナ] = StrConv((usGetPhonetic(Forms![情報入力]![案件名])), vbNarrow) Else '案件名が入力されてなければ何もしない End If End Sub **************************** Function usGetPhonetic(moji As String) As String Dim ExlObj As Object Set ExlObj = CreateObject("Excel.Application") usGetPhonetic = ExlObj.GetPhonetic(moji) End Function **************************** としております。 Excelを呼び出してPhonetic関数でフリガナに変換し、全角を半角に 変換した上で「案件名フリガナ」に入れてます。 ここで質問ですが、「案件名」にあるキーワードを貼り付けると 「案件名フリガナ」に全然関係のないフリガナが入力される場合が あるようです（←実際に自分で確認した訳ではないですが、たまに 現象が発生するとのこと）。 例えば、 案件名が「あああ向け 2016年度サービス」だった場合、「あああ」 の箇所に「いいい」を貼り付けると、本来であればフリガナには 「イイイムケ 2016ネンドサービス」と表示されますが、「いいい」を貼り付けた にも関わらず「マママムケ 2016ネンドサービス」と表示されるらしく。 ※実際はカタカナは半角になります。 案件名の箇所にはちゃんと「いいい向け」と入力されているので、 間違って「ままま」を貼り付けた訳ではありません。 どういうことが考えられますでしょうか。 例えば以前にExcelのふりがなの編集で「いいい」のふりがなとして 「マママ」としたことがあったとして、その情報が記憶されていて それがAccess上で表示されてしまうとか。。と思って実際に 試してみましたが、そういう訳でもなさそうです。 気になるのが、同じキーワードを貼り付けたとしても必ず発生する訳 ではなく、たまーに発生するということです（年に数回程度）。 あと「全然関係のないフリガナが入力される場合がある」と書きましたが 確かに関係はないのですが、社内にいるユーザー名に変換？されて 貼りつくそうです。 ご教示の程、宜しくお願い致します。
- 締切済み
- その他MS Office製品
- Function 構文のなかに変数をいれたい（ＶＢＡ）
お願いします。 エクセルＶＢＡにて 下記のようなFunction構文内に変数を設定する方法を 教えてください。 この中で ｋ以外にも a = Sheets("sheet1").Range("E27") b = Sheets("sheet1").Range("E27") この変数を扱いたいのですが。 もしかして他にもｆｕｎｃｔｉｏｎ構文が必要でしょうか。 Function data(k As Double) Dim sum As Double Dim ct As Integer Dim keisu As Integer Dim a As Double Dim b As Double a = Sheets("sheet1").Range("E27") b = Sheets("sheet1").Range("E27") 以下 略
- ベストアンサー
- オフィス系ソフト
- Excel 2007 <VBAでグラフの操作>
Excel 2007 <VBAでグラフの操作> 現在すでにあるグラフを修正しています。 下記マクロでは「各グラフに系列が2つあり、その1つ目を削除して残る1つのデータ範囲（X軸の値)を再設定する」という内容です。 下記マクロではFor構文冒頭のSet～の行で、 「実行時エラー '1004'： 'Cells'メソッドは失敗しました:'_Global'オブジェクト」 とのエラーが出ます。 このエラーについて検索してみたのですが、これといったものが見つからなかったので、このマクロでおかしなところがあれば直接指摘していただけないでしょうか。 よろしくお願いします。 Private Sub Test_Arrange() Dim MyRng As Range Dim R As Integer Dim n As Integer Dim i As Integer n = 10 R = Sheets("Sheet1").Range("A1").End(xlDown).Row For i = 1 To n Set MyRng = Sheets("Sheet1").Range(Cells(2, 2 * n + 3), Cells(R, 2 * n + 3)) Charts(i).SeriesCollection(1).Delete Charts(i).SeriesCollection(1).XValues = MyRng Next i End Sub
- ベストアンサー
- その他MS Office製品
- ＶＢ２００５ 初心者です。
文書中の番号を振りなおしたいのですが、やり方がよく分かりません。 Dim a As String=textbox1.text Dim b As Integer=a.IndexOf("【作品番号") Dim c As String=a.Substring（b,5） Dim d As Integer=c.Length Do While b <> -1 b=a.Indexof（"【作品番号",b+1） d=d+5 Loop Dim f As Integer=Cstr((d-5)/5) Dim g As Integer=0 g=g+1 For h As Integer=1 To f Dim i As String=textbox1.text.Replace("【作品番号","【作品番号" & h & "】") Next 最初のループまでで文章中に【作品番号＊】がいくつあるかを調べて、(f回)その回数文だけまたループを回して番号を振りたいのですが、何もおきません。 本当に初心者なので、皆さんが見たらありえない構文かも知れませんが、ご教授願います。。。 ちなみに、作品番号は２桁３桁にもなることもあり、全角の数字にしたいのです。 よろしくお願い致します。
- ベストアンサー
- Visual Basic
- VB.NET 2次元配列
二次元配列に関して質問があります。 二次元配列を定義します。 Dim a(,) As Integer = _ {{0, 0, 0, 0, 0, 0, 1, 1, 1}, _ {0, 0, 0, 0, 0, 1, 0, 0, 1}, _ {0, 0, 0, 0, 0, 0, 1, 1, 1}} 一次元配列を定義します。 Dim b() As Integer 一次元配列のb()に二次元配列a(,)の {0, 0, 0, 0, 0, 0, 1, 1, 1}の部分を 入れようとした場合、 どのように記載すればよろしいでしょうか？ イメージ的には b = a(0) で出きると思ったのですが、 構文エラーとなってしまいます。 よろしくお願いします。
- ベストアンサー
- Visual Basic
お礼
回答が早いなー。 快適気分。 じゃさ、、、、、 String ParamArray Variant Else vbLf 上のは何て読むの？