|
I am trying to figure out what the code is scrolling down one cell without actually having it name the cell. Below is the code right now but I dont want it to say a666, i just want it to go down 1 cell from what the end of the list is. Is there a way to do that.
Selection.End(xlDown).Select
ActiveWindow.SmallScroll Down:=12
Range("A666").Select
ActiveSheet.Paste
|
|
|
|
|
Going down one cell from the active cell should look something like that (haven't done this for a while):
ActiveCell.Offset(1, 0).activate"I love deadlines. I like the whooshing sound they make as they fly by." (DNA)
|
|
|
|
|
when I execute the follow code
Private Sub btnsave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsave.Click
Try
With SaveFileDialog1
' See the code demonstrating the OpenFileDialog control
' for examples using most properties, which are the same
' for both controls, for the most part.
' Add the default extension, if the user neglects to add an extension.
' The default is True.
.AddExtension = True
' Check to verify that the output path actually exists. Prompt before
' creating a new file? Prompt before overwriting?
' The default is True.
.CheckPathExists = True
' The default is False.
.CreatePrompt = False
' The default is True.
.OverwritePrompt = True
' The default is True.
.ValidateNames = True
' The default is False.
.ShowHelp = True
' If the user doesn't supply an extension, and if the AddExtension property is
' True, use this extension. The default is "".
.DefaultExt = "txt"
' Prompt with the current file name if you've specified it.
' The default is "".
'.FileName = filename3
'
' lblfilename.Text = SaveFileDialog1.FileName
' The default is "".
.Filter = _
"Text files (*.txt)|*.txt|" & _
"All files|*.*"
.FilterIndex = 1
If .ShowDialog() = Windows.Forms.DialogResult.OK Then
counter = 0
writeline(0) = " Menu Items" + vbTab + "Qty" + vbTab + _
"Unit Cost" + vbTab + "Total Cost"
writeline(1) = " ----------" + vbTab + "---" + vbTab + _
"---------" + vbTab + "----------"
Dim y As Integer = 0
For x As Integer = 2 To 12
'writeline(2).PadLeft(5)
writeline(x) = frmtodayscafe.filename(y) + vbTab + Format(frmtodayscafe.totalitemquantity(y)) + vbTab + _
FormatCurrency(frmtodayscafe.filename1(y)) + vbTab + vbTab + FormatCurrency(frmtodayscafe.cost(y))
y = y + 1
Next
'writeline(2) = filename(0) + vbTab + frmtodayscafe.totalitemquantity(0) + vbTab + _
'FormatCurrency(filename1(0)) + vbTab + vbTab + FormatCurrency(frmtodayscafe.cost(0))
'writeline(3) = filename(1) + vbTab + frmtodayscafe.totalitemquantity(1) + vbTab + _
'FormatCurrency(filename1(1)) + vbTab + vbTab + FormatCurrency(frmtodayscafe.cost(1))
' writeline(4) = filename(2) + vbTab + frmtodayscafe.totalitemquantity(2) + vbTab + _
' FormatCurrency(filename1(2)) + vbTab + vbTab + FormatCurrency(frmtodayscafe.cost(2))
' writeline(5) = filename(3) + vbTab + frmtodayscafe.totalitemquantity(3) + vbTab + _
'FormatCurrency(filename1(3)) + vbTab + vbTab + FormatCurrency(frmtodayscafe.cost(3))
' writeline(6) = filename(4) + vbTab + frmtodayscafe.totalitemquantity(4) + vbTab + _
'FormatCurrency(filename1(4)) + vbTab + vbTab + FormatCurrency(frmtodayscafe.cost(4))
' writeline(7) = filename(5) + vbTab + frmtodayscafe.totalitemquantity(5) + vbTab + _
'FormatCurrency(filename1(5)) + vbTab + vbTab + FormatCurrency(frmtodayscafe.cost(5))
' writeline(8) = filename(6) + vbTab + frmtodayscafe.totalitemquantity(6) + vbTab + _
'FormatCurrency(filename1(6)) + vbTab + vbTab + FormatCurrency(frmtodayscafe.cost(6))
'writeline(9) = filename(7) + vbTab + frmtodayscafe.totalitemquantity(7) + vbTab + _
'FormatCurrency(filename1(7)) + vbTab + vbTab + FormatCurrency(frmtodayscafe.cost(7))
' writeline(10) = filename(8) + vbTab + frmtodayscafe.totalitemquantity(8) + vbTab + _
' FormatCurrency(filename1(8)) + vbTab + vbTab + FormatCurrency(frmtodayscafe.cost(8))
' writeline(11) = filename(9) + vbTab + frmtodayscafe.totalitemquantity(9) + vbTab + _
'FormatCurrency(filename1(9)) + vbTab + vbTab + FormatCurrency(frmtodayscafe.cost(9))
' writeline(12) = filename(10) + vbTab + frmtodayscafe.totalitemquantity(10) + vbTab + _
'() 'ormatCurrency(filename1(10)) + vbTab + vbTab + FormatCurrency(frmtodayscafe.cost(10))
writeline(13) = vbNewLine + vbTab + vbTab + vbTab + vbTab + " OrderTotal:" + FormatCurrency(ordertotal)
writeline(14) = vbTab + vbTab + vbTab + vbTab + " DrinkTotal:" + FormatCurrency(frmtodayscafe.totaldrinktotal)
writeline(15) = vbTab + vbTab + vbTab + vbTab + " ---------------" + vbCrLf
writeline(16) = vbTab + vbTab + vbTab + vbTab + " SubTotal:" + FormatCurrency(subtotal)
writeline(17) = vbTab + vbTab + vbTab + vbTab + " Tax Amount:" + FormatCurrency(taxsamount)
writeline(18) = vbTab + vbTab + vbTab + vbTab + " ---------------" + vbCrLf
writeline(19) = vbTab + vbTab + vbTab + vbTab + "Grand Total:" + FormatCurrency(grandtotal)
inputfile = System.IO.File.CreateText(SaveFileDialog1.FileName)
inputfile.WriteLine()
inputfile.WriteLine()
For Me.counter = 0 To 19
'System.IO.File.AppendText(.FileName)
'inputfile.Write(filename(counter))
'inputfile.Write(vbTab)
'inputfile.Write(frmtodayscafe.totalitemquantity(counter))
'inputfile.Write(vbTab)
'inputfile.Write(FormatCurrency(filename1(y)))
'inputfile.Write(vbTab + vbTab)
'inputfile.WriteLine(FormatCurrency(frmtodayscafe.cost(y)))
inputfile.WriteLine(writeline(counter))
Next
inputfile.Close()
btnprint.Enabled = True
btncancel.Visible = False
btnclose.Visible = True
End If
End With
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Exclamation, Me.Text)
End Try
End Sub
I get the following results
Menu Items Qty Unit Cost Total Cost
---------- --- --------- ----------
cheeseburger 0 $5.00 $0.00
onion rings 0 $6.00 $0.00
chicken sdwch 1 $5.00 $5.00
milk shake 0 $2.00 $0.00
mexican rice 0 $5.00 $0.00
quasidella 0 $2.00 $0.00
shrimp cocktail 0 $5.00 $0.00
lasagne 0 $3.00 $0.00
spagehtti 0 $5.00 $0.00
cake 0 $2.00 $0.00
cookies 0 $6.00 $0.00
OrderTotal:$5.00
DrinkTotal:$0.00
---------------
SubTotal:$5.00
Tax Amount:$0.38
---------------
Grand Total:$5.38
I need to make the file into columnar format. I tried using padleft and padright functions do not work.
by changing the for loop code to the following resolved issues
Dim y As Integer = 0
For x As Integer = 2 To 12
'writeline(2).PadLeft(5)
Dim tempwriteline As String
Dim writebuilder As New StringBuilder
tempwriteline = frmtodayscafe.filename(y)
writebuilder.Append(tempwriteline.PadLeft(15, " "))
tempwriteline = String.Format(" {0,10} ", frmtodayscafe.totalitemquantity(y))
writebuilder.Append(tempwriteline)
tempwriteline = String.Format(" {0,10} ", FormatCurrency(frmtodayscafe.filename1(y)))
writebuilder.Append(tempwriteline)
tempwriteline = String.Format(" {0,10} ", FormatCurrency(frmtodayscafe.cost(y)))
writebuilder.Append(tempwriteline)
writeline(x) = writebuilder.ToString
y = y + 1
Next
modified on Thursday, March 11, 2010 8:33 PM
|
|
|
|
|
|
The pad function DO work, but you will get screwy results if you use tabs. If you need "ascii" tabular data, lined up perfectly, use ONLY spaces and padded fields to align your data. Do not use any tab characters.
|
|
|
|
|
hi
i have problem whn it coms to loop
mey gyz send some examples of loops
|
|
|
|
|
gcina wrote: hi
i have problem whn it coms to loop
mey gyz send some examples of loops
You also seem to have a problem, when it comes to proper writing."I love deadlines. I like the whooshing sound they make as they fly by." (DNA)
|
|
|
|
|
What..the...hell
Firstly: you've said that you've got a problem with loops...EXPLAIN. What's the problem you have?
Secondly: You've already made people less likely to help you if you are talking 1337 txtspk, K?
Lastly, I have no idea what the first two words of that last line are meant to be. I might be offended, I might be honoured, I have no clue because it's incomprehensible.
|
|
|
|
|
Be kind man it was the His First Post , if you cannot understand then dont post answer , its not a must
Read the Rules for Answering . Dont give bad impression of CP to new ones
______________________________________________________________________________________________________
Apologies for the shouting but this is important.
When answering a question please:
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar
If a question is poorly phrased then either ask for clarification, ignore it, or mark it down. Insults are not welcome
If the question is inappropriate then click the 'vote to remove message' button
Insults, slap-downs and sarcasm aren't welcome. Let's work to help developers, not make them feel stupid.
_______________________________________________________________________________________________________Best Regards,
SOFTDEV
If you have knowledge, let others light their candles at it
|
|
|
|
|
What's important is txtspeak is for 9 year olds. People who are serious about this can type complete words and sentances.
|
|
|
|
|
Yes Dave
Its not must to answer any post , if you cannot answer then dont post (whatever the reason is) , see daveauld and Luc Pattyn simply posted the answer without any ...... and i know one 10 years old  Best Regards,
SOFTDEV
If you have knowledge, let others light their candles at it
|
|
|
|
|
| So it's okay to use this childish textspeak, because it's his first post? According to this, it's okay to give a harsh answer to the op, because it's the first answer. Isn't the first impression always the most important one? He made no good first impression here. Phrase your question properly to get an answer, or phrase it like a fifth grader and be treated like one. There are also rules for asking and, despite there not been explicitly stated that textspeak is a no-go, it should be clear, that if you want to be treated in a professional way, you should act like a professional yourself. New ones, don't give bad impressions of yourself to Codeproject. "I love deadlines. I like the whooshing sound they make as they fly by." (DNA)
|
|
|
|
|
lol [laughing out loud] ,
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar
I am sure now "gcina" would have no problems in loopsBest Regards,
SOFTDEV
If you have knowledge, let others light their candles at it
|
|
|
|
|
I totally understand that not everybody speaks English perfect, cause it's not their first language. It isn't my first language either. But this is about textspeak, which is simply lazy, unprofessional and considered rude by many people (like myself). As I said before: behave like a child (by using textspeak), prepare to get treated like one.
And as JHizzle pointed out before: gcina seems to have a problem with loops, so he/she should maybe explain, what the problem is. Rule 2: Be specific.
If it's just about general understanding of loops, then a google-search would have been apropriate. There are plenty of examples for loops, if one just uses google.
Well, I made my point clear, so no more arguing from my side, since we are turning in circles. Anyway, I am out now. Have a nice evening."I love deadlines. I like the whooshing sound they make as they fly by." (DNA)
|
|
|
|
|
yes man Good Evening to you also and no heart feelings  Best Regards,
SOFTDEV
If you have knowledge, let others light their candles at it
|
|
|
|
|
I'm impressed. First time I've seen anyone with the same tag line as me.
Well, I guess I got it of a quotes website a couple of years back so I can't claim originality can I!
|
|
|
|
|
Trust me , i copied from yours  Best Regards,
SOFTDEV
If you have knowledge, let others light their candles at it
|
|
|
|
|
Scary, I didn't realise I had been posting that much.
It's a good quote though.
|
|
|
|
|
Well, he's listed as South African, and English is the standard trade language of SA. Until 94, English was one of only 2 official languages...of course, now there are 11, but the majority of people that I have met in SA speak English...with the exception of some of the small villages and "shantytowns".
So, I think it would be safe to assume that he speaks English...probably even better than some people in the US.
|
|
|
|
|
Here is an example of some loops;
Do
Loop
While (someCondition)
End While
For x = 1 To 10
Next
|
|
|
|
|
For x = 1 To 3
BuyBook()
Next
Do
For Each Book in BookCollection
StudyBook()
End For
Loop Until Me.LoopExpert = True
|
|
|
|
|
what kind of loop do you want to do. Here are several examples of loops: for next, do while, and do until. are all example of looping.
|
|
|
|
|
Hi experts/Friends,
I am learning VB.net and trying to make a ruler for my Text Editor. Following is my try please help me to improve it.
Public Class myRuler
'Inherits System.Windows.Forms.UserControl
Private Sub myRuler_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
Dim g As Graphics = e.Graphics
Dim p As Point = New Point(0, 0)
Dim s As Size = New Size(Me.Width, Me.Height)
Dim curRec As Rectangle = New Rectangle(p, s)
g.DrawRectangle(Pens.Black, curRec)
'Converting Pixels to Twips
Dim ptoTwip As Single = (Me.Width * 15)
'Twips to Inches
Dim twipToInches As Single = CSng(ptoTwip / 1440)
Dim b As Single = 0
'Draw Numders 1 2 3 etc.
For a As Single = 0 To twipToInches
g.DrawString(a, New Font("Arial", 10), Brushes.Black, b, 10)
b = b + 96 '96 192 288
Next
' Dim ptomm As Integer = Me.Width / 3.779527559
'Draw Lines between inches, and long line every 5th
Dim y As Single = 10.0F
For x As Single = 0 To b Step 9.6
g.DrawLine(Pens.Black, x, 0, x, y)
'MessageBox.Show(x)
If x Mod 2 = 0 Then
y = 15
Else
y = 10
End If
Next
End Sub
End Class
|
|
|
|
|
What do you mean by "improve it"?
|
|
|
|
|
Hmm, you could use dark gray instead of black in this bit:
g.DrawString(a, New Font("Arial", 10), Brushes.Black, b, 10)
"I love deadlines. I like the whooshing sound they make as they fly by." (DNA)
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
