u/StrangeJesus

OK, but you're missing out on a full life...

No, but the record macro function will teach you the vocabulary and the simple syntax of the language. To go on to the next level, you need to learn how to do Loops, have Macros call other Macros, etc.

ETA: the class I did was taught by Cal Poly Pomona. That class is the top result when I Google it, but I don't know when they'll offer it next.

I did do an online course in VBA, and glanced at VBA for Dummies, but most of what I learned came from using the Record Macro function and Googling Stack Overflow. After a couple of months, I had the basics down, and by the time I'd been doing it for a year, I was pretty good. Also, it helps if you have a pet Excel file that you can save little snippets of code in.

The article doesn't mention worker productivity... the average American worker produces about 60% more in an hour than the average Japanese worker. If a decreasing share of your population is working age, and servicing a huge debt, you really want them to get shit done when they go into the office.

Glad you like it! Plenty of ways to skin that cat - my first instinct was also to create a series of loops, but then the more I thought about each loop, the lazier I became. LINEST has popped up a couple of times for me lately, and it's starting to become one of my favorite arrays. Another thing, if I remember my linear algebra right, once you have A1:B2 as a 2x2 matrix you should be able to find an inverse matrix, which would give you your solutions for the inverse function.

So here's how I'd do it... sorry to be a little vague on some of this, but:

I'd capture the string, like you are now, and then replace "x" with "RC1"

Create a new sheet

In the new sheet, set

Range("A1:A2").FormulaR1C1 = string1

Range("B1") = 0

Range("B2") = 1

Range("D1:E1").FormulaArray = "=LINEST(R1C1:R2C1,R1C2:R2C2,TRUE)"

Now set a couple of Long Variables equal to the values in D1 and E1... they are your coefficient of x and and intercept... and you can now work out the inverse function algebraically. Delete the temporary sheet and put this in.

That ought to work for you!

1. How are the original equations entered? Directly into cells?

2. Are all your equations linear?

3. Where does it get the x variable?

Edited to add question 3.

Em-spaces, en-spaces, thin spaces or variable width spaces (i.e., the spaces between words in justified text)?

Doonesbury's Greatest Hits has it.

Happy to provide input, maybe this will help break it down a little more (if the description is too basic, feel free to ignore it):

One of the ways to allow your code to be more efficient is to set variables. You can store integers (Integer or Long), decimals (Double), strings of characters (String), True/False (Boolean), etc. For example, here I've set rowCount to be a Long variable (a big integer), and in the next line set its value equals the number of rows in column B. The code I'm using for that is a pretty familiar code to VBA users... I learned to use it before I really understood how it works.

For the next part, instead of using the Range command to state a Range, I use the Cells command--it's a force of habit that wouldn't make much difference here, but might be beneficial to you later as you use bigger and longer code. It lets me enter the row and then the column as two separate values, rather than as one named location (like "D1" or "AB25"). Here, I set the value of the cell located at the row equal to one greater than the last row of column B (using the variable we defined earlier) in the second column equal to the value of the cell in the first row of the fourth column (aka "D1").

You can always find the number of rows with a variable like this:

Dim rowCount as Long

rowCount = Range("B" & Rows.Count).End(xlUp).Row

You can define and redefine rowCount as often as you like, and it won't take up much room or time.

Also, I try and stay away from using the Clipboard in my VBA... I've seen it take up lots of memory, and not get dumped until I close Excel (which can hamper performance and lead to crashes). You might try using something like:

Cells(rowCount + 1, 2).Value = Cells(1, 4).Value

which would put the value in cell D1 into the next empty cell at the bottom of column B.

Good luck!

Thanks for your post!

First, your English is fine; don't apologize for it.

I lived in Japan for awhile, and got to experience one of my Japanese colleagues have Manchukuo explained to him by one of our Chinese colleagues. Pretty sobering for him, I'd imagine.

I've got a question for you, beyond just the facts of what people are ignorant of: to what do you attribute that widespread ignorance? Are people unwilling to learn parts of history that show their parents/grandparents in a bad light? Do people just assume that "war is just like that, bad things happen all the time"? Do people who are interested not know where to start?

Right now, I'm reading a really fascinating book called Japan at War: An Oral History. It's a series of interviews with people who were alive during WWII and it gives a very extensive picture of their attitudes (everything from unrepentant war criminals to lifelong pacifists to Korean slave labor). If you get a chance to read it, I think it may be the best record of what happened during that time.

I'm currently reading Japan at War: An Oral History by Cook & Cook. They interviewed a guy named Yuasa Ken who did live vivisections on Chinese prisoners and taught others to do it with the purpose of training field medics in the Japanese Army.

Without the movies, Kirk edges out Sisko. Kirk is on a mission, the stakes are high, but he's determined to live up to his ideals. When you add in the movies, you get an even more personal journey - even Star Trek V was worth it just for the line, "I need my pain."

I think the easiest way to do it (without using Application.OnTime, and starting your spreadsheet automatically with the Task Scheduler) would be like this:

Write out the VBA code of whatever it is you want to do every month. You can call it monthlyTask (or whatever works for you). The last step in monthlyTask would be to timestamp the activity, something like:

Range("B1").Value = Now() 
Range("B1").NumberFormat = "mm/dd/yyyy"

Then, I'd open ThisWorkbook and write a sub something like this:

Option Explicit

Private Sub Workbook_Open()

If Year(Cells(1, 2)) < Year(Now()) Or (Year(Cells(1, 2)) = Year(Now()) And Month(Cells(1, 2)) < Month(Now())) Then monthlyTask

End Sub

Well, in the PLA's defense (I can't believe I just said that), the movie is about the way a progressive sees diversity, a political message that's pretty important to America. It offers a positive message where people are striving to live in a world where no one's fate is determined by their birth. The society starts at an imperfect place, has a serious setback, and then gets restored.

While China touts its 55 ethnic minority groups (and writes their ethnicity on their ID cards), the majority Han will sometimes complain about how good the minorities have it with their various perks. One of my tutors told me about a clever taunt they had for Hui people when she was growing up. The Chinese government is promoting a "harmonious" society, which precludes any public discourse about "what level is our society at?" "is there anyone it doesn't work for?" "do we need to improve?"

So we Americans can make a movie that's part of our internal political dialog, when that movie gets exported, we're letting other countries see some of our own internal discourse. And be damned if that wouldn't look like propaganda if the discourse doesn't happen in their country.

You can, sure. Left-, then right-click on the y-axis, then select "Add Minor Gridlines."

Probably the closest you will get is:

Left-, then right-click on the y-axis and select Format Axis Set the Minimum and Maximum values to 0.1 and 200. Turn on the Logarithmic Scale, set to Base 10 (or whatever base you prefer) Turn on Minor Tick Marks.

That will mark the 0.1, 0.2, 0.3, ... 0.9, 1.0, 1.1, 1.2, 1.3, ... 90, 100, and 200 with small tick marks on the side. It won't explicitly label 200 on the axis. Will that look like what you want?

Shit, that makes me sad. Xi'an was one of my favorite cities, but I haven't been there in over 10 years. I remember a friend's sister and her husband cooked me a home-cooked meal (the first one I ever had in China). The calligraphy in Beilin was amazing. I even remember this little guy who ran a halal restaurant near the mosque who wanted to know if I was from Chicago, because he wanted to tell me that he thought Michael Jordan was really lihai.

The first thing I'd fix:

Dim x, y, z As String

will give you two Variants (x & y) and a String (z).

Here's what I ran, based on what you entered:

Option Explicit

Function V_Max(sngRadius As Double, sngANgle_1 As Double, sngC_SF As Double, gravity As Double) As Double

V_Max = ((sngRadius * gravity * (Sin(Application.WorksheetFunction.Radians(sngANgle_1)) + sngC_SF * Cos(Application.WorksheetFunction.Radians(sngANgle_1))) / (Cos(Application.WorksheetFunction.Radians(sngANgle_1)) - sngC_SF * Sin(Application.WorksheetFunction.Radians(sngANgle_1)))) ^ (1 / 2))

End Function

Public Sub testtest()

Dim sngRadius As Double
Dim sngANgle_1 As Double
Dim sngC_SF As Double
Dim gravity As Double

sngRadius = 2
sngANgle_1 = 30
sngC_SF = 0.1
gravity = 9.8
MsgBox V_Max(sngRadius, sngANgle_1, sngC_SF, gravity)

End Sub

And it worked for me (gave me 3.75 and change). I put the "sng" prefix on the variables to match what the function called out, and changed all the variables to Double. It works when I input the function directly into the worksheet, too.

Ah, nice, thank you! I actually don't need the ABS on there, since I'm only interested in adding digits in one direction (down).

Solution verified!

Too bad! I was hoping there was some way to do it with conditional formatting and/or iterative calculations. Thanks for your help!

Sounds like the End If is in the wrong place. It looks like my original instructions on that were a little vague, sorry about that. You want the End If you add to be right before the line Gotonextsheet: Next sh (meaning there will be two End If lines there).

Edit to add: I'm leaving on vacation in a few hours, so I'll be away for days. If that doesn't quite finish, my apologies, you'll probably need to post a new thread. Good luck!