Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10980 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【18758】振り仮名スペースに億万千の単位を表示したい ぱくぱく 04/10/10(日) 4:45 質問[未読]
【18776】Re:振り仮名スペースに億万千の単位を表示... IROC 04/10/10(日) 23:51 回答[未読]
【18816】Re:振り仮名スペースに億万千の単位を表示... ぱくぱく 04/10/13(水) 11:35 発言[未読]
【18817】Re:振り仮名スペースに億万千の単位を表示... IROC 04/10/13(水) 12:58 回答[未読]
【18818】Re:振り仮名スペースに億万千の単位を表示... Jaka 04/10/13(水) 13:12 回答[未読]
【18819】Re:振り仮名スペースに億万千の単位を表示... ぱくぱく 04/10/13(水) 14:50 発言[未読]
【18821】Re:振り仮名スペースに億万千の単位を表示... Jaka 04/10/13(水) 15:49 回答[未読]
【18822】Re:振り仮名スペースに億万千の単位を表示... ぱくぱく 04/10/13(水) 16:18 お礼[未読]
【18824】Re:振り仮名スペースに億万千の単位を表示... Jaka 04/10/13(水) 16:30 発言[未読]
【18758】振り仮名スペースに億万千の単位を表示し...
質問  ぱくぱく  - 04/10/10(日) 4:45 -
引用なし
パスワード
   先日電卓を見てて大変感心しました。数字の上に億万千の単位が表示されてい
て、数字の把握が一目瞭然でした↓

http://cweb.canon.jp/calc/lineup/thousand-point.html#p01

これってうまくExcelで再現できないでしょうか？振り仮名の機能を使ってや
れたらすっごく便利だと思ったのですが、私ではまったくだめでした。なにか
お知恵がありましたら識者の方どうかお知恵をお貸しください。宜しくお願い
致します。
（やっぱり、1行追加して書くしかないのでしょうか、、、）
【18776】Re:振り仮名スペースに億万千の単位を表...
回答  IROC  - 04/10/10(日) 23:51 -
引用なし
パスワード
   手作業でできるなら、マクロの記録を使ってみれば参考になると思います。
【18816】Re:振り仮名スペースに億万千の単位を表...
発言  ぱくぱく  - 04/10/13(水) 11:35 -
引用なし
パスワード
   ▼IROC さん：
>手作業でできるなら、マクロの記録を使ってみれば参考になると思います。

手作業でもできないんですよ、、、数字の上に振り仮名って設定できないみたいで
数字に振り仮名って不可能なのでしょうか？
【18817】Re:振り仮名スペースに億万千の単位を表...
回答  IROC  - 04/10/13(水) 12:58 -
引用なし
パスワード
   そのようですね。
【18818】Re:振り仮名スペースに億万千の単位を表...
回答  Jaka  - 04/10/13(水) 13:12 -
引用なし
パスワード
   ▼ぱくぱく さん：
>手作業でもできないんですよ、、、数字の上に振り仮名って設定できないみたいで
>数字に振り仮名って不可能なのでしょうか？

文字列にして数字を全角にすればいいと思います。
そのままだとエクセル関数の計算に使えないので、
=VALUE(A1)+5
【18819】Re:振り仮名スペースに億万千の単位を表...
発言  ぱくぱく  - 04/10/13(水) 14:50 -
引用なし
パスワード
   ▼Jaka さん：
>
>文字列にして数字を全角にすればいいと思います。
>そのままだとエクセル関数の計算に使えないので、
>=VALUE(A1)+5

一歩進んだのかも。貴重なコメントありがとうございます。

とりあえず、JIS関数を使って振り仮名を入れようとしたら、数式の編集になってしまい、失敗でした。

その後、値だけ貼り付けて振り仮名を設定すると、、、うまく行きそうに
なるのですが、振り仮名を編集した瞬間に文字列が数字に自動に変換されて
しまうのです、、、何かいい方法はないのでしょうか？
できれば、計算にも使いたいので、あとで数字に戻せるようにしたいのですが、、
INDIRECTなどの数式も試してみたのですが、数式に対して振り仮名をつけても
数式の編集になってしまうので、やはり上手く全角のまま振り仮名を許可でき
ないでしょうか、、
【18821】Re:振り仮名スペースに億万千の単位を表...
回答  Jaka  - 04/10/13(水) 15:49 -
引用なし
パスワード
   何をどうしようとしているのか良く見えません。

Sub Macro2()
With Range("B5")
　　.NumberFormatLocal = "@"
　　.Value = "１"
　　.Characters(1, 1).PhoneticCharacters = "万"
　　.Phonetic.Visible = True
　　MsgBox .Value + 9
End With
Range("B6").Formula = "=B5+10"　'ちゃんと計算されるときもあるみたいだが、やめた方が良い。
Range("B7").Formula = "=value(B5)+10"　'正解
End Sub

Sub 数字戻()
　 Range("B5").TextToColumns Destination:=Range("B5"), DataType:=xlDelimited, _
　　　　TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
　　　　Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
　　　　:=Array(1, 1)
Range("J22").NumberFormatLocal = "G/標準"
End Sub
【18822】Re:振り仮名スペースに億万千の単位を表...
お礼  ぱくぱく  - 04/10/13(水) 16:18 -
引用なし
パスワード
   Jakaさん

これです。完璧です。手作業で数式つかってやっもうまく行かなかったん
ですが、マクロでやればうまくいくんですね。ありがとうございます。

あとは桁数を上手く合わせるように工夫してみます。
ありがとうございました！
【18824】Re:振り仮名スペースに億万千の単位を表...
発言  Jaka  - 04/10/13(水) 16:30 -
引用なし
パスワード
   ▼ぱくぱく さん：
>これです。完璧です。手作業で数式つかってやっもうまく行かなかったん
>ですが、マクロでやればうまくいくんですね。ありがとうございます。

いや、手作業で十分なんですが、うまく説明できそうになかったもので、マクロにしただけです。
ほとんどマクロ記録の応用です。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10980 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free