VBA الدعم في احسب OpenOffice.Org

نشر في 21. أكتوبر، 2009 من قبل في الهندسة ، HOWTO ، OpenOffice.org ، نصائح

لسنوات عديدة وحتى أمس، وكنت أعرف عن احسب OpenOffice.Org. اليوم، وأنا متحمس حول هذا الموضوع.

حاولت أوبن أوفيس منذ سنوات عديدة. ويمكن أن تفعل أشياء قليلة ثم يعود، ولكني رفضت على الفور بأنها غير كافية لاحتياجات بلدي. لقد كنت دائما من المعجبين ما يمكن أن تفعله VBA لإكسل.

في الأسبوع الماضي، أكملت القطعة الأكثر تعقيدا من تطبيق VBA كتبته من أي وقت مضى. انا مبتدئ VBA واستغرق مني اسبوع للانتهاء من قانون بلدي التي يمكن أن تكون مطبوعة على صفحات A4 28. جدول البيانات الخاص بي حتى الآن يعمل لا تشوبه شائبة ويندوز إكس بي / مكتب 2003 مثل أنه من المفترض أن، ولكن أنا كتبت أكثر من رمز بلادي في فيستا / أوفيس 2007.

جاء Openoffice.org 3.1.1 عندما رفع مستواها للضغط على ديبيان، مع ذلك. راجعت من الإصدار الجديد وأعجب ذلك يمكن للمرء أن كتابة وحدات الماكرو في بيثون، جافا سكريبت، بيانشيل بالإضافة إلى BASIC.

حاولت فتح قطعة لي أكثر تعقيدا من التعليمات البرمجية VBA في Openoffice.org وقصفت أنا مع المئات من رسائل الخطأ المتكررة التي أتيحت لي لقتل جدول من سطر الأوامر. وكان على قناعة بأن VBA وOOoCalc غير متوافقة، حتى اكتشفت هذا الموقع عن طريق الصدفة عندما يحاول تعلم الكتابة وحدات الماكرو جافاسكريبت في أوبن أوفيس.

موافق. وكان كل ما يلزم لإضافة "دعم VBA الخيار 1". بيد أن هذا لا يبدو من الصعب جدا، لذلك حاولت فتح جدول البيانات الخاص بي مرة أخرى، وكان مرة أخرى لقتل كل شيء من سطر الأوامر.

وكان بعض الشيء غير صحيح وأنا لم تمكنه من تشغيل VBA على الرغم من التوافق الموعودة.

لذلك قررت أن تذهب بطيئة. لا يهم كم مرة، لم أستطع تشغيل وحدات الماكرو عندما فتحت ملف Excel الأصلي. لذلك قررت أن فتح ملف Excel مع وحدات الماكرو معطلة. اسمحوا لي أن فتح جدول البيانات، ولكن لا شيء كان يعمل. وجدت أن OOoCalc تلقائيا أضافت "دعم VBA الخيار 1" إلى وحدات بي.

حفظ الملف كما أنا. المواد المستنفدة للأوزون، وشرع في تصحيح من خلال تمكين وحدات الماكرو مرة أخرى. هذه المرة، جاء أخطاء لم يأت في flood.They في وقت واحد، وأنه كان من السهل التصحيح.

أول مجموعة من الأخطاء المرتبطة المتغيرات التي لم يكن لديها تصريح واضح خافت. وبدا VBA في Excel أكثر تسامحا في التعامل مع varaibles بدون تصريحات خافت السليم. ولكن لم احسب أوبن أوفيس لا ترغب في ذلك. حتى انتهى بي الأمر إضافة عدد قليل من البيانات خافت لبعض المتغيرات.

وكانت المجموعة التالية من الأخطاء مع أسماء UDF اكسل. أوبن أوفيس احسب يحب أن يرى وظائف يتم استدعاء مع الأحرف الكبيرة. حتى إذا كنت تستخدم الأحرف صغير في Excel، فإنها تظهر على أنها أخطاء. ويمكن هذا ثابت بسهولة عن طريق استخدام ميزة البحث والاستبدال.

مع الأشياء اثنين فقط من هؤلاء، ثابتة بلدي جديد ملف المواد المستنفدة للأوزون. عملت على أكمل وجه. أنا أنقذ بعد ذلك كما. XLS وإعادة فتح XLS. وكان كل شيء لا تزال تعمل. على الرغم من أوبن أوفيس احسب الوثائق لا يزال يقول أن لا يتم دعم كافة الميزات VBA، VBA يعمل بشكل جيد على OOoCalc لجميع الحسابات الهندسية العملية. حتى الآن هو الوقت المناسب بالنسبة لي لجعل التحول.

الآن لا إذا كان لديك صعوبات في الحصول على الخاص VBA رمز للعمل في احسب OOO، التخلي في وقت قريب.

الوظائف ذات الصلة:

  1. التفوق خطوات التطبيق
  2. وصلات ل2010/06/30

3 ردود على "دعم VBA في احسب OpenOffice.Org"

  1. راكيش

    07. نوفمبر، 2009

    مرحبا،
    لقد حاولت فعل ما يو ذكرتها، ولكن لا يزال لا يعمل.
    إذا SHEET1.CELLS (7، 4) = "" أو SHEET1.CELLS (9، 4) = "" أو SHEET1.CELLS (10، 4) = ""

    في هذا الخط وأنا على الحصول خاصية أو أسلوب غير موجود.

  2. كريشنان

    09. نوفمبر، 2009

    بناء الجملة غير صحيح ومن الواضح أن ما أستطيع أن أرى.

    إذا، وبعد ذلك، هي آخر الكلمات الرئيسية لاستخدامها. أم لا.

  3. جيمس

    07. فبراير، 2010

    ingnoring على "REMS"
    كيف يمكنك هذا الحق في أوبن أوفيس؟ أنا غير قادر على العمل خارج OOO - الثابتة والمتنقلة التي تحصل لي؟
    REM الكلمات الفرعية ()
    REM "
    عيني 'كلمات ماكرو
    تسجيل ماكرو REM "2010/07/02 من قبل المالك
    REM "
    REM "اختصار لوحة المفاتيح: CTRL + W
    REM "
    REM خافت NumWords وصحيح
    REM WordLength خافت وصحيح
    REM عدد خافت وصحيح
    REM خافت Count2 وصحيح
    REM خافت Lcase وصحيح
    REM
    REM كلمة خافت كسلسلة
    REM خافت MixedWord كسلسلة
    REM رسالة خافت كسلسلة
    REM
    أوراق العمل REM "(" كلمات "). تنشيط
    REM
    REM مجموعة wordRange = أوراق العمل ("كلمات") نطاق ("A1: A500").
    REM NumWords = Application.WorksheetFunction.CountA (wordRange)
    REM
    عيني للحصول على عدد = 1 إلى NumWords
    REM WordLength = ليون (خلايا (الكونت، 1))
    REM
    REM
    REM "Application.EnableSound = خطأ
    REM
    REM "Application.EnableSound = صحيح
    REM كلمة = خلايا (الكونت، 1)
    خلايا REM "(عدد، 1). تنشيط
    ActiveCell.Characters REM "(1، 3). PhoneticCharacters = كلمة
    REM MixedWord = ""
    عيني على Count2 = 1 إلى WordLength
    عيني رسالة = MID (خلايا (الكونت، 1)، Count2، 1)
    REM "Application.Speech.Speak (رسالة)
    REM Lcase = ROUND (التجمع الوطني الديمقراطي)
    REM
    REM
    REM إذا Lcase = 1 وتصاعديا (رسالة)> = 97 ثم رسالة = مركز حقوق الانسان (ASC (رسالة) - 32)
    REM
    REM MixedWord = MixedWord + رسالة
    REM التالي Count2
    خلايا REM (1، 5) = MixedWord
    REM
    REM رسالة خافت، العنوان، الصورة، MyValue
    REM = رسالة "القرد جاهز؟"
    REM عنوان = "لعبة الهجاء الشرف".
    REM الافتراضي = "نعم"
    REM MyValue = InputBox (رسالة، عنوان، الافتراضي)
    REM
    REM
    عيني على Count2 = 1 إلى WordLength
    عيني رسالة = MID (خلايا (الكونت، 1)، Count2، 1)
    REM Application.Speech.Speak (رسالة)
    REM التالي Count2
    REM Application.Speech.Speak (وورد)
    REM
    REM إذا MyValue "نعم" ثم
    REM Application.Speech.Speak (واضاف "هذا غير صحيح pooey - الذي أدخلته")
    REM WordLength = ليون (MyValue)
    عيني على Count2 = 1 إلى WordLength
    عيني رسالة = MID (MyValue، Count2، 1)
    REM Application.Speech.Speak (رسالة)
    REM التالي Count2
    REM Application.Speech.Speak (MyValue)
    REM النهاية إذا
    REM
    REM
    REM الكونت التالي
    REM
    REM
    REM نهاية الفرعية
    REM

ترك الرد