ジャストアンサーのしくみ:
  • 専門家に質問
    知識豊富な専門家があらゆる質問にお答えするために常に待機しています。
  • 専門家が丁寧に対応
    E メールやサイト内オンラインメッセージなど、さまざまな手段で回答を通知。必要に応じてフォローアップの質問をすることもできます。
  • やり取り回数、制限なし
    専門家からの回答を確認し評価をすることで、支払うかどうかを決めます。
pcnakadoに今すぐ質問する
pcnakado
pcnakado, ITエンジニア
カテゴリ: Microsoft
満足したユーザー: 335
経験:  パソコンの病院なかど 院長
97084900
ここに Microsoft に関する質問を入力してください。
pcnakadoがオンラインで質問受付中

Office365のエクセルでxxxx.xlsmのファイルをタブレットのエクセルの旧版(2018)で読む方法はありますか

質問者の質問

Office365のエクセルでxxxx.xlsmのファイルをタブレットのエクセルの旧版(2018)で読む方法はありますか?
JA: 了解しました。お使いのオペレーションシステム(例:Windows 10、MacOS Mojave)を教えていただけますか?
Customer: これは有料ですか?
JA: ジャストアンサーのご利用には若干のお支払いが必要です。詳細は次のページでご案内いたしますが、非常にお手頃に設定されています。
Customer: 次ページをお願いします。
JA: 再起動など、ご自身で何か試みられたことはありますか?
Customer: PCですか?タブレットですか?
JA: ありがとうございます。上記の他に、マイクロソフトスペシャリストに事前に伝えておきたいことはありますか?
Customer: ございません。
投稿: 11 日 前.
カテゴリ: Microsoft
専門家:  pcnakado 返答済み 11 日 前.

ご質問ありがとうございます。

フリーエンジニアのpcnakadoでございます。

この度の質問に対応させていただきますので、よろしくお願いいたします。

なお、お急ぎだとは思いますが、確認作業や本業の都合などにより、返答までにお時間をいただく場合がございますので、なにとぞご理解いただきますようにお願いいたします。

また、後程システムより案内される安心リモートサポートや電話サポートに関しては、あたかも専門家が提案しているようにご案内されますが、専門家が提案しているものではございません。サイトからの広告と同じですので、連絡なくお申し込みになられてもお受けいたしかねますので、ご注意ください。

質問の内容を確認させていただきました。

拡張子の最後にmが付くエクセルブックは、マクロ(VBA)付きのファイルです。

マクロはある種のプログラムであるため、機種依存いたしますので、同一OS環境下での利用を前提としておりますので、AndroidでもiOS(iPadOS)でも利用できないはずです。

タブレットというのが、Windowsタブレットであれば、動作可能です。

Excelのバージョン違いに関しては、VBAで利用されているコードによって異なりますので、最新バージョンのエクセルでしか対応していないコードでの記述があれば、旧バージョンではエラーが発生しますし、互換性も保ったコードになっていれば、実行可能です。

いずれにしましても、エクセルには、Windows版、MacOS版、Android版、iOS版などを含め、2018というバージョンが存在しないため、旧版というものが何なのかが分かりません。

質問者: 返答済み 11 日 前.
12372;連絡ありがとうございます。このバージョンのエクセルではVBAマクロを実行することが出来ません。とWINDOWSタブレットのエクセルでメッセージが出てきます。ということは、非互換のコードという事ですね?
質問者: 返答済み 11 日 前.
20316;成した下記のようなマクロを送ればわかりますでしょうか?Option ExplicitPublic Const WSName1 As String = "データベース"
Public ErrStr As String
Public ErrKBN As BooleanPublic Type dbitem
Name As String
Address1 As String
Address2 As String
Address3 As String
Age As String
Tel1 As String
Tel2 As String
Biko As String
GetKBN As Boolean
End TypePublic Function Getdb(QRStr As String) As dbitem
Dim WS As Worksheet
Dim FoundCell As Range
Set WS = ThisWorkbook.Sheets(WSName1)
With WS
Set FoundCell = .Columns(2).Find(What:=QRStr, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=True, MatchByte:=True)
If Not (FoundCell Is Nothing) Then
Getdb.GetKBN = True
Getdb.Name = FoundCell.Offset(0, 1).Value
Getdb.Address1 = FoundCell.Offset(0, 2).Value
Getdb.Address2 = FoundCell.Offset(0, 3).Value
Getdb.Address3 = FoundCell.Offset(0, 4).Value
Getdb.Age = FoundCell.Offset(0, 5).Value
Getdb.Tel1 = FoundCell.Offset(0, 6).Value
Getdb.Tel2 = FoundCell.Offset(0, 7).Value
Getdb.Biko = FoundCell.Offset(0, 8).Value
Else
Getdb.GetKBN = False
End If
End With
End FunctionSub FormShow()frm_main.Show
End SubSub Print_Out()
On Error GoTo Err_Print_OutDim WS As WorksheetApplication.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManualSet WS = ThisWorkbook.ActiveSheet
With WS
Application.PrintCommunication = False
With .PageSetup
.PrintArea = "B1:J16"
.PaperSize = xlPaperA4
.Orientation = xlLandscape
.CenterHorizontally = True
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
Application.PrintCommunication = True
.PrintOut
'.PrintPreview
End With
Set WS = NothingExit_Print_Out:
Application.ScreenUpdating = True
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
Exit Sub
Err_Print_Out:
MsgBox Err.Description
Resume Exit_Print_Out
End SubSub ErrView()
If ErrStr <> "" Then
MsgBox ErrStr, vbCritical, "確認"
End If
ErrStr = ""
ErrKBN = False
End Sub
専門家:  pcnakado 返答済み 11 日 前.

申し訳ありませんが、VBAの修正のお手伝いは、こちらの相談の範疇を超えております。

他に対応される専門家の対応をお待ちください。

Microsoft についての関連する質問