Excel VBA質問箱 IV

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

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


10982 / 13646 ツリー ←次へ | 前へ→

【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 = "1"
  .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 -

引用なし
パスワード
   ▼ぱくぱく さん:
>これです。完璧です。手作業で数式つかってやっもうまく行かなかったん
>ですが、マクロでやればうまくいくんですね。ありがとうございます。

いや、手作業で十分なんですが、うまく説明できそうになかったもので、マクロにしただけです。
ほとんどマクロ記録の応用です。

10982 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free