文字列化アドイン

文字列化アドイン使用法
１．アドインのインストール
　　方法１：文字列化アドイン.xla　をアドインフォルダに放り込んで、
　　　　　　ファイル⇒オプション⇒アドイン⇒設定　で普通にインストール
　　方法２：Zipを解凍したこのフォルダを適当な場所に置いて（デスクトップでも構いません）
　　　　　　文字列化アドイン.xlaを同封のアドインインストーラ(含む再）1．2.vbsに
　　　　　　ドラッグ＆ドロップしてください。
　　　　　　アドインファイルをこの場所に置いたままインストールできます。
　　　　　　（通常のアドインフォルダに配置する必要はないということです）
２．使用法
　　ブックが開かれた時、アドインが起動し、式の入ったセルを右クリックすると、
　　右クリックメニューに「式の文字列化」が表示されます。
　　アドインが実行されると、式の入ったセルの右のセルに文字列化された式が入り、
　　文字列化された式の下のセルにレングスが入ります。
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　以上

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　(y sakudaさん提供)

20170730_haifufolderをダウンロード

Comments

[投稿情報: y sakuda]

無事着きましたね。
このアドイン、わざわざアドインにする程のものではなく、本体は10行程度の簡単なコードです。
興味のある人がいらっしゃれば、コードも出します。

[投稿情報: jyo3]

＞興味のある人がいらっしゃれば、コードも出します。
うん、、、
使う、使わないは別として、、、
ＶＢＡコードは、、、関心あります。・・・よ、、、

[投稿情報: y sakuda]

>ＶＢＡコードは、、、関心あります。・・・よ、、、
すごく簡単なものです。
ThisWorkbookのモジュールに
Private Sub Workbook_Open()
Dim wBar As CommandBar
With Application
For Each wBar In .CommandBars
If wBar.Name = "Cell" Then
With wBar.Controls.Add(Type:=msoControlButton, temporary:=True)
.BeginGroup = True
.Caption = "式の文字列化"
.OnAction = "ExtractFormula"
End With
Exit For
End If
Next
End With
End Sub

標準モジュールに
Sub ExtractFormula()
Dim wRange As Range, wFormula As String
Set wRange = Selection.Resize(1, 1)
wFormula = wRange.FormulaLocal
If wRange.HasArray Then
wFormula = "{" & wFormula & "}"
End If
wRange.Offset(0, 1) = "'" & wFormula
wRange.Offset(1, 1).FormulaLocal = "=len(" & wRange.Offset(0, 1).Address & ")"
End Sub

これだけです＾＾

[投稿情報: y sakuda]

あれ？さっき投稿したんだけど、消えてる。
改めて

ThisWorkBookのコードに

Private Sub Workbook_Open()
Dim wBar As CommandBar
With Application
For Each wBar In .CommandBars
If wBar.Name = "Cell" Then
With wBar.Controls.Add(Type:=msoControlButton, temporary:=True)
.BeginGroup = True
.Caption = "式の文字列化"
.OnAction = "ExtractFormula"
End With
Exit For
End If
Next
End With
End Sub

標準モジュールに

Sub ExtractFormula()
Dim wRange As Range, wFormula As String
Set wRange = Selection.Resize(1, 1)
wFormula = wRange.FormulaLocal
If wRange.HasArray Then
wFormula = "{" & wFormula & "}"
End If
wRange.Offset(0, 1) = "'" & wFormula
wRange.Offset(1, 1).FormulaLocal = "=len(" & wRange.Offset(0, 1).Address & ")"
End Sub

これだけです。

[投稿情報: y sakuda]

コードを張り付けて投稿すると、なぜか消えちゃいます。
どこかタグと重なってるのかな？
それなら、途中から消えるとかのはずなんだけど・・・・
ジョー3に直接EWのメールで送って置きます。

[投稿情報: くまぷー]

>コードを張り付けて投稿すると、なぜか消えちゃいます。
>ジョー3に直接EWのメールで送って置きます。

私に送付して頂ければ、管理者モード？で
公開させていただきます。m(__)m

[投稿情報: y sakuda]

送りました。

[投稿情報: くまぷー]

下がsakudaさんから頂いたコードです。
//////////////////////////////////////////

ThisWorkbookのコード
右クリックメニューを追加するものです。

Private Sub Workbook_Open()
Dim wBar As CommandBar
With Application
For Each wBar In .CommandBars
If wBar.Name = "Cell" Then
With wBar.Controls.Add(Type:=msoControlButton, temporary:=True)
.BeginGroup = True
.Caption = "式の文字列化"
.OnAction = "ExtractFormula"
End With
Exit For
End If
Next
End With
End Sub

標準モジュール　これが本体です。
Sub ExtractFormula()
Dim wRange As Range, wFormula As String
Set wRange = Selection.Resize(1, 1)
wFormula = wRange.FormulaLocal
If wRange.HasArray Then
wFormula = "{" & wFormula & "}"
End If
wRange.Offset(0, 1) = "'" & wFormula
wRange.Offset(1, 1).FormulaLocal = "=len(" & wRange.Offset(0, 1).Address &
")"
End Sub