I've tried the "styleSheetTheme" vs. "Theme" with no success.
After a review of the output of the page with the CSSFriendlyAdapters.browser file excluded from the project contrasted to output of the page with the CSSFriendlyAdapters.browser file included with the project, I can only conclude...
I forgot to mention that I am using the "ASP.NET 2.0 CSS Friendly Control Adapters 1.0" as well, which as it turns out is the cause of all of this malarkey.
I excluded the "CSSFriendlyAdapters.browser" file from the project (to temporarily disable the CSS Friendly rendering) to debug a CSS...
I am tinkering with Themes for the first time.
I am designing in Visual Web Developer Express Edition 2005.
I am running this on Vista Home Premium.
I am deploying on the same box which is running IIS7 and has the following options installed:
--IIS 6 Management Compatibility (All options...
Hello Binnit!
Assuming you really need a formula in Cells J1:M1, change the last line of your posted code to the following:
ActiveCell.Value = "=CONCATENATE(L3," & Chr(34) & "/" & Chr(34) & ",K3," & Chr(34) & "/" & Chr(34) & ",J3)"
'Chr(34) makes a " character so you can properly concatenate...
Hello Knifey,
I'd use the .Offset function of the Range object.
Assuming you're looping through A1:Z1 with a range object, i.e:
For Eeach rngTest in Sheet1.Range("A1:Z1")
'Test here.
Next rngTest
You could add an offset like this:
lngOffset = 1
For Eeach rngTest in Sheet1.Range("A1:Z1")...
Hello Tony,
Have you tried intercepting the "BeforePrint" event?
Example:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim strFormula As String
strFormula = Range("N6").Formula
Range("N6").ClearContents
Sheet1.PrintOut...
Hello OOzy,
Try adding a Timer control to the splash screen and set the Interval property for the number of milliseconds to display the form (number of seconds * 1000).
In the handler for the Timer event, hide and then unload the splash screen.
For example:
Private Sub Timer1_Timer()...
Hello Sagain2k,
The Interaction collection contains and EOF function.
Here's an excerpt from the help file:
EOF Function
-------------
Returns an Integer containing the Boolean value True when the end of a file opened for Random or sequential Input has been reached.
Syntax
EOF(filenumber)...
Hello StevePB,
If you want the userform to fill the screen (hiding the userform) try the adding the following in the UserForm code section:
Private Sub UserForm_Activate()
SetUserFormSize
End Sub
Private Sub UserForm_Initialize()
SetUserFormSize
End Sub
Private Sub UserForm_Resize()...
Hello Nick,
Maybe my thinking is backwards here, but have you tried reformatting the string to your needs once it has been input?
Try this function:
Public Function ConvertToDMY(ByRef strChosenDate As String, Optional ByRef strDelimiter As String)
Dim strDay, strMonth, strYear As String...
Hello William!
Try using this before you print:
ActiveSheet.PageSetup.FitToPagesWide = 1
ActiveSheet.PageSetup.FitToPagesTall = 1
Hope this helps,
Pete
Hello StevePB!
Application.WindowState will set the window state for the whole application (Excel in this case).
Try using this instead:
ActiveWindow.WindowState = xlMinimized
This way only the active window is affected.
If you have mulitple windows open and you want to minimize them...
Hello LSIGuy,
When I use OnTime and it cannot find the macro I want to run (Sub or Function - it doesn't matter, you can run both with OnTime), all I usually have to do is fully qualify the reference to the Sub or Function.
For example:
Application.OnTime Now + TimeValue("00:30:00")...
Hello Xian,
As long as you make your your VB project includes a reference to the Microsoft Excel Object Library (Project -> References ->[Scroll down and place a checkmark to Microsoft Excel {Version Number} Object Library]), you should be able to use the VBA Code with the Excel sheet.
Hope...
Hello JazzyLee,
Perhaps posting the code which gives the Error 13: Type Mismatch would help us help you better.
Also, have you tried using:
Load UserForm1
instead of:
Call UserForm1.UserForm_Initalize
Normally, event handlers are declared as Private and calling them from other modules...
Hello Simon,
As I don't know what the following are:
m_InitHex
InitHex
FillMemory
I don't know if it suits your purpose.
If you want a string representation of hex values from the array that my function above returns, feel free to use this:
Public Function ConvertToHex(ByVal varPassed As...
Hello Simon,
The "Byte" data type is a number ranging from 0 - 255.
8-bit ASCII is a number ranging from 0 to 255.
Given that each character in the string is really an 8-bit ASCII value, I'm not really sure there's any need for modification to the above routine.
For example, the...
Hello Simon,
This seems to work. Just pass it your string and it'll return an array.
Public Function SplitString(ByVal strToSplit As String)
Dim strArray() As String
Dim lngStrLen As Long
Dim lngElements As Long
Dim lngIndex As Long
strLen = Strings.Len(strToSplit)...
Hello Tony,
I noticed a few problems in the example you are having trouble with. Try this and let us know how it works:
Sub TrimColumn()
Dim varCol As Variant
Dim rngColumnToTrim As Range
Dim rngCell As Range
'Get input from the user as the column to trim.
varCol =...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.