VBA tacaíocht i OpenOffice.Org Calc

Posted on 21. Deireadh Fómhair, 2009 ag i Innealtóireacht , Howto , OpenOffice.org , Leideanna

Le blianta fada till inné, bhí a fhios agam faoi OpenOffice.Org Calc. Inniu, tá mé corraithe faoi.

Bhain mé triail as OpenOffice blianta fada ó shin. D'fhéadfadh sé a dhéanamh roinnt rudaí ar ais ansin, ach briseadh mé láithreach mar neamhleor do mo chuid riachtanas. Bhí mé i gcónaí ar lucht leanúna an méid a d'fhéadfaí a dhéanamh le haghaidh VBA Excel.

An tseachtain seo caite, chríochnaigh mé an píosa is casta an iarratais i scríbhinn VBA mhaith liom riamh. Tá mé newbie VBA agus thóg sé mé in aghaidh na seachtaine a chríochnú mo cód a d'fhéadfadh a chló ar 28 leathanach A4. Oibríonn Mo scarbhileog till dáta flawlessly ar XP / Oifig 2003 mar a bhfuil sé ceaptha a, ach scríobh mé an chuid is mó de mo cód i Vista / Oifig 2007.

Nuair a uasghrádú mé Squeeze Debian, tháinig Openoffice.org 3.1.1 leis. Sheiceáil mé amach an leagan nua agus chuaigh go bhféadfadh duine a scríobh Macraí i Python, Javascript, BeanShell i dteannta BASIC.

Rinne mé a oscailt mo píosa is casta de chód VBA i Openoffice.org agus bombarded mé leis na céadta teachtaireachtaí earráide athchleachtach go raibh mé a mharú an scarbhileog na n-orduithe. Bhí mé cinnte nach bhfuil VBA agus OOoCalc luí, fuair mé amach go dtí seo ag suíomh timpiste nuair a iarraidh a fhoghlaim a scríobh Macraí Javascript i OOO.

OK. Bhí Gach gá dom a chur "Rogha VBA Tacaíocht 1". Ní raibh go fuaime ró-deacair, mar sin rinne mé mo scarbhileog a oscailt arís agus bhí a mharú arís gach rud ó líne a ordú.

Ní raibh roinnt rud ceart agus ní raibh mé a bheith in ann a reáchtáil VBA in ainneoin an Comhoiriúnacht geallta.

Mar sin, bheartaigh mé dul go mall. Is cuma cé mhéad uair, ní raibh mé in rith na Macraí nuair a d'oscail mé an dúchais fheabhas comhad. Mar sin, chinn mé ar fheabhas leis an comhad a oscailt Macraí faoi mhíchumas. Sin in iúl dom a oscailt an scarbhileog, ach ní raibh sé ag obair. Chinn mé go raibh OOoCalc leis go huathoibríoch "Rogha VBA Tacaíocht 1" le mo modúil.

Mé an comhad a shábháil mar. SÍÓ agus imeachtaí a thionscnamh chun dífhabhtaithe ag Macraí a chumasú arís. An uair seo, tháinig earráidí ní raibh teacht i flood.They amháin ag an am agus bhí sé níos éasca a dífhabhtaigh.

An chéad sraith na n-earráidí a bhaineann le hathróga nach raibh ráiteas soiléir Dim. VBA in Excel chuma níos forgiving i varaibles láimhseáil gan ráitis Dim cuí. Ach ní raibh OOO Calc maith liom é. Mar sin, chríochnaigh mé suas chur ráitis cúpla Dim do roinnt athróg.

An tacar eile de earráidí a bhí le Excel ainmneacha UDF. OOO Calc Is maith a fheiceáil Feidhmeanna á agairt le litreacha cás uachtair. Mar sin, más rud é gur mhaith leat a úsáidtear litreacha cás íochtair i Excel, go mbeadh siad thaispeáint mar earráidí. D'fhéadfaí é seo a shocrú go héasca trí úsáid a bhaint as a aimsiú agus ionad gné.

Le ach an dá rud, mo socraithe nua. SÍÓ comhad a d'oibrigh go foirfe. Shábháil mé ansin é mar. Xls agus ath-osclaíodh an xls. Agus gach rud a bhí fós ag obair. Cé a deir OOO Calc doiciméadú fós nach léir gnéithe VBA dtugtar tacaíocht, ritheann VBA go maith ar OOoCalc do gach ríomhaireachtaí innealtóireachta praiticiúil. Mar sin, anois an t-am dom a dhéanamh ar an athrú.

Anois, ní má tá deacrachtaí agat, a fháil do VBA cód a bheith ag obair i OOO Calc, a thabhairt suas go luath.

Post ghaolmhara:

  1. Howtos Excel
  2. naisc le haghaidh 2010/06/30

3 freagairtí ar "tacaíochta VBA i OpenOffice.Org Calc"

  1. Rakesh

    07. Samhain, 2009

    Hi,
    Mé iarracht a dhéanamh an méid atá u luaite, ach fós ní oibríonn sé.
    más rud é SHEET1.CELLS (7, 4) = "" Nó SHEET1.CELLS (9, 4) = "" Nó SHEET1.CELLS (10, 4) = ""

    Sa líne seo tá mé ag dul mhaoin nó modh Ní bhfuarthas.

  2. Krishnan

    09. Samhain, 2009

    Is é an chomhréir léir go mícheart mar is féidir liom a fheiceáil.

    Más rud é, Ansin, Eile iad na heochairfhocail a úsáid. Ní Nó.

  3. james

    07. Feabhra, 2010

    ingnoring an "rems"
    bheadh ​​conas tá tú ceart seo i OOO?? i cant obair amach OOO - fháil pls thosaigh mé??
    Rem Focail Fo ()
    Rem '
    Focail rem 'Macra
    Macra rem 'taifeadta 2010/07/02 ag Úinéir
    Rem '
    Aicearra Méarchláir rem ': Ctrl + w
    Rem '
    Rem Dim NumWords Mar Slánuimhir
    Rem WordLength Dim Mar Slánuimhir
    Rem Líon Dim Mar Slánuimhir
    Rem Dim Count2 Mar Slánuimhir
    Rem Dim lcase Mar Slánuimhir
    Rem
    Rem Word Dim Mar Teaghrán
    Rem Dim MixedWord Mar Teaghrán
    Rem Litir Dim Mar Teaghrán
    Rem
    Gníomhachtaigh Bileoga Oibre rem '("Focail").
    Rem
    Rem Set wordRange = Bileoga Oibre ("Focail") Raon ("A1: a500").
    Rem NumWords = Application.WorksheetFunction.CountA (wordRange)
    Rem
    Rem Chun Líon = 1 Chun NumWords
    Rem WordLength = Len (Cealla (Count, 1))
    Rem
    Rem
    Application.EnableSound rem '= Bréagach
    Rem
    Application.EnableSound rem '= Fíor
    Rem Word = Cealla (Count, 1)
    Gníomhachtaigh Cealla rem '(Count, 1).
    ActiveCell.Characters rem '(1, 3). PhoneticCharacters = Word
    Rem MixedWord = ""
    Rem Chun Count2 = 1 Chun WordLength
    Rem Litir = Lár (Cealla (Count, 1), Count2, 1)
    Application.Speech.Speak rem '(Litir)
    Rem lcase = Babhta (RND)
    Rem
    Rem
    Rem Má lcase = 1 Agus ASC (Litir)> = 97 = Ansin Litir CHR (ASC (Litir) - 32)
    Rem
    Rem MixedWord = MixedWord + Litir
    Rem Aghaidh Count2
    Cealla rem (1, 5) = MixedWord
    Rem
    Rem Teachtaireacht Dim, Teideal, Réamhshocrú, MyValue
    = Teachtaireacht rem "Moncaí Réidh?"
    Rem Teideal = "cluiche litriú Honors."
    Rem Réamhshocrú = "TÁ"
    Rem MyValue = InputBox (Teachtaireacht, Teideal, Idirlín)
    Rem
    Rem
    Rem Chun Count2 = 1 Chun WordLength
    Rem Litir = Lár (Cealla (Count, 1), Count2, 1)
    Rem Application.Speech.Speak (Litir)
    Rem Aghaidh Count2
    Rem Application.Speech.Speak (Word)
    Rem
    Rem Má MyValue "TÁ" Ansin
    Rem Application.Speech.Speak ("Sin pooey mícheart - iontráil tú")
    Rem WordLength = Len (MyValue)
    Rem Chun Count2 = 1 Chun WordLength
    Rem Litir = Lár (MyValue, Count2, 1)
    Rem Application.Speech.Speak (Litir)
    Rem Aghaidh Count2
    Rem Application.Speech.Speak (MyValue)
    Deireadh rem Má
    Rem
    Rem
    Rem Líon Aghaidh
    Rem
    Rem
    Deireadh Fo rem
    Rem

Leave a Reply