Příspěvky uživatele
< návrat zpět
toto makro funguje na sposob tak ze co mas selecnute tak to vynasoby x2. Je to viac unuverzalnejsie ako pisat do makra:
range("B1") = range("B1") * 2
range("B2") = range("B2") * 2
range("B3") = range("B3") * 2
or
cells(1,2) = cells(1,2) * 2
cells(2,2) = cells(2,2) * 2
cells(3,2) = cells(3,2) * 2
makro:
Sub test()
Dim aCell As Range
For Each aCell In ActiveSheet.Range(Selection.Address)
Range(aCell.Address) = Range(aCell.Address) * 2
Next
End Sub
no nasiel som nejaku metodu ale musim doinstalovat k officu 2010 ... sharepoint
MODI:
http://msdn.microsoft.com/en-us/library/office/aa202819(v=office.11).aspx
Preco ho nemam v office 2010:
http://support.microsoft.com/kb/982760/en-us
... ale zatial som len na zaciatku
mozno su aj ine riesenia :) rad si ich precitam
teraz riesim takyto problem .. mam obrazky tabuliek a potreboval by som z nich vytahat cisla .. a hladam k tomu najlepsie riesenie
da sa pomocou VBA nejak z OCRkovat obrazok?? 
ja som to riesil takto
pred makrom som ho otvoril:
Sheets(1).Unprotect Password:="test"
a po makre som ho zavrel:
Sheets(1).Protect Password:="test", DrawingObjects:=True, Contents:=True, Scenarios:=True
ale keby bol lepsi sposob rad si ho precitam :))
no to je otazka na HTML forum :P ale malo by to fungovat podla:
http://support.microsoft.com/kb/197922/en-us
pisal som to na rychlo nemam to skontrolovane ale asi takto:
Sub test()
Dim x As Integer
Dim y As Integer
Dim aFinish As Boolean
Dim aOutput As String
x = 1
y = 1
Do While aFinish > True
aOutput = Cells(12, 13) + x
x = x + 1
If Weekday(aOutput, 2) <> 6 And Weekday(aOutput, 2) <> 7 Then y = y + 1
If y = 30 Then aFinish = True
Loop
Cells(12, 14) = aOutput
End Sub
event mouseUp mouseMove, mouseDown ... pre cell neexistuje ... aspon ja o takom neviem :)
jedine co mozes urobit je ked nieco selectnes tak to nieco spravi
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
MsgBox (Target.Address)
End Sub
jj google je vsemocny :))
- este pre zaujimavost ten novsi provider vyriesil aj bug s dlzkou nazvu sheetu ... takze uz ho netreba premenovavat
tak uz som to vyriesil su 3. moznosti
2 su tu popisane:
http://support.microsoft.com/kb/319998/en-us
a tretia najlepsia je zmenit providera na:
Microsoft.ACE.OLEDB.12.0
pri novsej verzii sa tento bug uz nestava
Ahojte,
mam problem s memory ... ked pustam v cykle ADODB "jednoduche select" ... v mojom pripade filtrovanie excel tabulky .... tak v 20 cykle to uz zahlti pamat a neviem preco aj po vypnuti excelu to zostava v memory ....netusite preco??
Dim aFilter() As String
Dim backupSheetName As String
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
If aColumn <> "" Then
'problem name sheet must rename
backupSheetName = cbSheet.Value
Sheets(cbSheet.Value).Name = "Loading01"
strFile = Application.ThisWorkbook.FullName
strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strFile & ";Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"";"
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.Open strCon
strSQL = "SELECT " & aColumn & " FROM [Loading01$" & tbRange.Value & "] GROUP BY " & aColumn
rs.Open strSQL, cn
aRow = 0
Do While Not rs.EOF
For bColumn = 0 To rs.Fields.Count - 1
ReDim Preserve aFilter(aRow)
If rs.Fields(bColumn).Value <> "Null" Then
aFilter(aRow) = rs.Fields(bColumn).Value
End If
Next
rs.MoveNext
aRow = aRow + 1
Loop
Me.Controls.Item("cbFilter" & aComboBoxId).Clear
For y = LBound(aFilter) To UBound(aFilter)
Me.Controls.Item("cbFilter" & aComboBoxId).AddItem aFilter(y)
Next
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
'call back name sheet
Sheets("Loading01").Name = backupSheetName
End If
Pre zaujimavost tu hodim svoj tetris :))
- pusta sa cez makro: test
- je tam dobre vidiet ako sa cas da dobre vyuzivat v userform
tak hotovo (2dni v prdeli)
program sa spusta makrom test
- za tu so/ne sa ospravedlnujem ... ja som si nevsimol ze funkcia weekday() ma 1-nedela a 7-sobota na nas kaledar ju trebalo zapisovat weekday(date,2)
Makro:
- je bez sviatkou ale daju sa tam jednoducho doplnit ... ale!!!
- Problem spociva v tom ze vianocne sviatky v tyzdni zozeru vsetky pismena A B C D E ... a to s tymi bodami co si zadal sa neda nikdy urobit (zacykli sa)
- odcyklovanie toho programu sa mi nechce robit (mozes niekde v obehu zadat ze ked uz sa opakuje 1000x tak neh skonci)
tak isto sa zacykli ked udas zle minulorocne pismena (je to logicke skusa mnoho variacii ale co z toho ked ziadna nema sancu zapasovat :))
... kukni sa nato popripade si to prerob podla svojich predstav
no je to na dlho :)) uz som s tym zabil asi 6hodin a dnes uz idem domov zajtra nato kuknem
v com je problem:
- Treba definovat 1. tyzden ktory sa prelina minulim rokom
- pri kazdom novom mesiaci musim doplnat udaje predchadzajuceho mesiaca (dost HARD)
- variacie nahodneho dodania pismen nemusi vzdy sediet takze sa makro musi zopakovat znova .... toto je tiez BRUTUS
- a mnoho dalsich :)))
- tu predlohu co si poslal zle zobrazuje sobotu a nedelu koli tomu som asi 2 hod stratil
ale zajtra to hadam dokoncim
pracujem natom :)) zatial bezuspesne ... ale dnes pri jednej cinnosti kde prichadzaju nove napady ma nieco napadlo do poobedia by som to tu mohol hodit
... ale fakt zaujimava uloha
Uživatelské menu
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články