在智能手机上运行VBA

问题描述 投票：0回答：3

我到处搜索，但找不到是否可以使用 Excel 365（最新版本）在 Samsung Galaxy 5 上运行 VBA 想知道如果我订阅 365 是否可以使用 vba 谢谢

vba office365 galaxy smartphone
3个回答
3
投票

@James：专门针对 Android，没有允许您运行 VBA 的应用程序，但 e-Droid-Cell Pro Spreadsheet 包含允许编写应用程序脚本的“宏”机制。尽管宏语言与 VBA（Visual Basic 应用程序）不兼容，但它确实允许执行宏语言所需的几乎任何操作。这是 Google Play 商店上应用程序的 链接 。

他们有一些非常好的评论，但我建议先尝试试用版。

对于O365，如果您做过任何适用于Office 2010或Office 2013的VBA开发，那么它也可以在Office 365中使用，虽然您可以在浏览器中或通过网页打开这本书，但您将无法运行那里的任何vba代码。

0
投票

我找到的唯一解决方案是在我的电脑上安装“OpenOffice”，然后用 OpenOffice 用 vba 打开我的 excel 项目，OpenOffice 的 vba 接近 exel vba 你需要转换一些指令你将能够转换，在您的电脑上进行调试和测试请务必保存为 OpenOffice 格式。在您的 Android 平板电脑/手机上安装“AndrOpen Office”，将新的 OpenOffice 项目复制到您的平板电脑/手机并使用 AndrOpen Office 打开它。 进行INTNESIF测试

0
投票

创建 ChatGPT 演示文稿 VBA

默认 (GPT-3.5)

用户 我希望您为有关聊天 gpt 的 Powerpoint 演示编写 VBA 代码。你要用你自己的知识填写所有的文本，没有占位符。我需要10个

聊天GPT 当然，我可以为您提供 VBA 代码来创建有关 ChatGPT 的 PowerPoint 演示文稿。下面是一个 VBA 代码片段，用于创建一个包含 10 张幻灯片的简单 PowerPoint 演示文稿，每张幻灯片都包含有关 ChatGPT 的文本：

vba 复制代码 子 CreateChatGPTPresentation() Dim pptApp 作为对象 将 pptPresentation 变暗为对象 变暗 pptSlide 作为对象 将 pptTextbox 变暗为对象 将幻灯片文本调暗为字符串 Dim SlideTitles() 作为字符串 将 i 调暗为整数

' Create PowerPoint application object
Set pptApp = CreateObject("PowerPoint.Application")
pptApp.Visible = True

' Create a new presentation
Set pptPresentation = pptApp.Presentations.Add

' Array of slide titles
slideTitles = Array( _
    "Introduction to ChatGPT", _
    "What is ChatGPT?", _
    "How ChatGPT Works", _
    "Use Cases of ChatGPT", _
    "Benefits of ChatGPT", _
    "Limitations of ChatGPT", _
    "ChatGPT and AI Ethics", _
    "Future of ChatGPT", _
    "Q&A with ChatGPT", _
    "Conclusion"
)

' Loop to create 10 slides
For i = LBound(slideTitles) To UBound(slideTitles)
    ' Add a new slide
    Set pptSlide = pptPresentation.Slides.Add(i + 1, ppLayoutText)

    ' Set slide title
    pptSlide.Shapes(1).TextFrame.TextRange.Text = slideTitles(i)

    ' Add content to the slide
    Select Case i
        Case 0
            slideText = "Welcome to a presentation about ChatGPT, an advanced AI language model."
        Case 1
            slideText = "ChatGPT is a state-of-the-art natural language processing model developed by OpenAI."
        Case 2
            slideText = "ChatGPT uses deep learning to generate human-like text responses based on input queries."
        Case 3
            slideText = "ChatGPT finds applications in customer support, content generation, and more."
        Case 4
            slideText = "ChatGPT improves efficiency, reduces costs, and enhances user experiences."
        Case 5
            slideText = "However, ChatGPT may provide incorrect or biased responses."
        Case 6
            slideText = "Ethical considerations include bias mitigation and responsible AI usage."
        Case 7
            slideText = "The future of ChatGPT holds promise for improved capabilities and safeguards."
        Case 8
            slideText = "Feel free to ask any questions you have about ChatGPT."
        Case 9
            slideText = "In conclusion, ChatGPT is a transformative AI technology with potential and challenges."

    End Select

    ' Add text to the slide
    Set pptTextbox = pptSlide.Shapes(2).TextFrame.TextRange
    pptTextbox.Text = slideText
Next i

' Release PowerPoint objects
Set pptTextbox = Nothing
Set pptSlide = Nothing
Set pptPresentation = Nothing
Set pptApp = Nothing

结束子

最新问题
© www.soinside.com 2019 - 2024. All rights reserved.