mic. office excel den libre office makro aktarmak

mic. office excel den libre office makro aktarmak

#1290 İleti | alihaber | 16 May 2014, 17:55

selamun aleyküm , ben microsoft office EXCELL de yardımcı makro kullanıyorum(ŞÖYLE DİYİM BEN ELEKTRİKÇİYİM PROJE ÇİZİYORUM EXCELL DE BİR PROGRAM YAZMIŞLAR AUTOCAD İLE İRTİBATLI YANİ RAKAMLARI GİRİP AUTOCAD BUTONUNA BASINA BİZE AUTOCAD ÜZERİNDE ÇİZİYOR). libre office te bunu nasıl kullanabilirim mail adresim alihaber@windowslive.com
alihaber
 
İleti: 4
Kayıt: 16 May 2014, 17:14
İşletim Sisteminiz: windows 8 64b
LibreOffice Sürümü: 4.2.4

Re: mic. office excel den libre office makro aktarmak

#1295 İleti | Hamurcu | 19 May 2014, 02:26

Bu soruya cevap verebilmek için bilgisayarında hem LibreOffice hem AutoCad yüklü olan ve makro yazmayı bilen bir arkadaşımızın olması lazım.

Benim bilgisayarımda Linux yüklü olduğu için AuoCad yükleme şansım yok.

Ancak siz mevcut excel makrolarınızı buraya yazarsanız elimizden gelen yardımı yaparız.
Kullanıcı avatarı
Hamurcu
 
İleti: 102
Kayıt: 06 Ağu 2012, 00:14
Konum: İstanbul
İşletim Sisteminiz: Windows 10
LibreOffice Sürümü: 5.x

Re: mic. office excel den libre office makro aktarmak

#1296 İleti | alihaber | 19 May 2014, 10:26

ALT + F11 e bastım macrolarda çıktı EDİT dedim böyle yazıyor ŞİMDİDEN TEŞEKKÜR EDERİM ÇOK SAĞ OLUN..




Sub KoordinatCizimi()

' Biolight 2005
' info@mentes.com.tr

On Error GoTo Hata

Dim koordinat
Dim xkoordinat
Dim ykoordinat

Dim Secim As Range

Set Secim = Application.InputBox(Prompt:="İLK(X)Koordinatı Fare ile seçiniz. ÖRNEK: $A$2 veya A2" & vbCrLf & _
vbCrLf & "* Y koordinatı Belirlediniz (X)hücrenin yanındaki Sütun olacaktır" & vbCrLf & _
"* Z koordinatı Sıfır(0) kabul edilecektir.", Title:="İlk X Koordinatını Seçiniz", Type:=8)

Range(Secim.Address(False, False)).Select

Application.ScreenUpdating = False

If ActiveCell.Value = "" Then
MsgBox "Lütfen Dikkat !" & vbCrLf & vbCrLf & _
"İlk X Koordinatın Bulunduğu Hücreyi Seçiniz", , "Hata : İlk X Koordinatı Seçilmedi !"
Exit Sub
End If

Do While Not IsEmpty(ActiveCell)

xkoordinat = Replace(ActiveCell.Value, ",", ".")
koordinat = koordinat & xkoordinat & ","

ActiveCell.Offset(0, 1).Activate

ykoordinat = Replace(ActiveCell.Value, ",", ".")

If ykoordinat = "" Then
ykoordinat = 0
End If

koordinat = koordinat & ykoordinat & ",0 "
ActiveCell.Offset(1, -1).Activate
Loop

Range(Secim.Address(False, False)).Select

Application.ScreenUpdating = True

Dim Cad As AutoCAD.AcadApplication

Set Cad = New AutoCAD.AcadApplication

Cad.Application.ActiveDocument.SaveAs ActiveWorkbook.Path & "/" & _
Replace(ActiveWorkbook.Name, ".xls", ".dwg")

Cad.Visible = False
Cad.Application.WindowState = acMax

Cad.ActiveDocument.SendCommand "Line " & koordinat & " "

Cad.ActiveDocument.SendCommand "Zoom Extents "

Cad.Application.ActiveDocument.Save

Cad.Quit

'"Klasör : " & ActiveWorkbook.Path & vbCrLf & _
'"İsim : " & Replace(ActiveWorkbook.Name, ".xls", ".dwg") & vbCrLf & vbCrLf & _

MsgBox "Belirlediğiniz Koordinatlar Bilgisayarınızda" & vbCrLf & vbCrLf & _
"Dosya : " & ActiveWorkbook.Path & "\" & Replace(ActiveWorkbook.Name, ".xls", ".dwg") & vbCrLf & vbCrLf & _
"AutoCad Dosyası Olarak Kaydedildi.", , "AutoCad KAYDEDİLDİ."


Set Cad = Nothing
Set Secim = Nothing

Hata:
Exit Sub

End Sub
alihaber
 
İleti: 4
Kayıt: 16 May 2014, 17:14
İşletim Sisteminiz: windows 8 64b
LibreOffice Sürümü: 4.2.4

Re: mic. office excel den libre office makro aktarmak

#1297 İleti | Hamurcu | 19 May 2014, 13:49

Maalesef pek mümkün görülmüyor.

Burada AutoCad API'si kullanılmış ve AutoCad'in sadece Microsoft Office API'leri var.

Ne zaman AutoCad LibreOffice'e destek verirse ancak o zaman mümkün olacaktır.
Kullanıcı avatarı
Hamurcu
 
İleti: 102
Kayıt: 06 Ağu 2012, 00:14
Konum: İstanbul
İşletim Sisteminiz: Windows 10
LibreOffice Sürümü: 5.x

Re: mic. office excel den libre office makro aktarmak

#1300 İleti | alihaber | 19 May 2014, 14:17

tamam teşekkür ederim ilginiz için. derdimle dertlendiniz. Allah yardımcınız olsun. office'ye para ödemek istemiyordum libre office kullanayım demiştim. illa ki almam lazım microsoft office anladım.
alihaber
 
İleti: 4
Kayıt: 16 May 2014, 17:14
İşletim Sisteminiz: windows 8 64b
LibreOffice Sürümü: 4.2.4


Calc - Hesap Tablosu

Kimler çevrimiçi

Kayıtlı kullanıcılar: Yahoo [Bot], Yandex [Bot]