|
住所録と宛名印刷を8年来使用させていただいてます。 EXCEL2003で使用しておりましたがサポート中止となり freeのLibreOffce4.1で試したところ 印刷画面でBASIC ランタイムエラー. '91' オブジェクト変数は設定できていません。 Function HenkanJ1(jusho) '住所データ変換(前節)-------------------- If jusho = "" Then HenkanJ1 = "": Exit Function tmpj = Application.Substitute(jusho, " ", " ") '全角空白を半角に変換 tmp = Asc(Left(LTrim(tmpj), 1)) '先頭文字が半角なら区切りは2連空白 If tmp >= 0 And tmp < 256 Then tmpkugiri = " " Else tmpkugiri = " " tmp1 = Application.Search(tmpkugiri, tmpj) * If IsError(tmp1) Then HenkanJ1 = jusho Else HenkanJ1 = Left(jusho, tmp1 - 1) End If End Function と表示され実行できなくなります *の行がエラーと思われますが ソフトの開発は苦手でまったく出来ませんが 解決策はありませんでしょうか |
No.428 2014/03/18(Tue) 10:27:22
|
|
本ブックはExcel専用です。 他のソフトには対応しておりません。 ご了解ください。
ソフトが異なれば機能は異なり、特にマクロは全く互換性はありませんので移植は不可能です。 |
No.429 2014/03/18(Tue) 17:31:23
|
|