Microsoft

Food Names And Terms

Microsoft Kitchen - Sat, 07/21/2018 - 02:00
If you don’t know some of the food names and terms that you come across on the Internet, this list may help you. There are many more, and we’ll be adding as we go along. You may be surprised with some of them. I always thought “antipasto” had something to do with pasta! AMANDINE is […]

Diet Meal Plans

Microsoft Kitchen - Tue, 07/17/2018 - 02:00
The sheer number of diet meal plans on television and in print media can make the would-be-dieter’s head spin. Which diet is right for me? Will I like the foods? Is there a support system? Can I afford this program? How about nutrition? These are just a few of the issues that dieters face. Don’t […]

Weight Loss Foods

Microsoft Kitchen - Sun, 07/15/2018 - 02:00
Are you aware some foods are considered weight loss foods because they promote fat burning and increase metabolism?  If you are in a weight loss slump, burn more calories with foods that can help get you over the hump and on the road to your target weight.  Many of these foods do double duty since […]

Food Lovers Diet

Microsoft Kitchen - Fri, 07/13/2018 - 02:00
Hmmm, a food lover’s diet.  Does that mean you can eat anything you like and blame that growing waistline on it?  Do you find yourself daydreaming about a delicious meal?  Do you eat to love and love to eat?  I mean, who doesn’t love to eat?  You just might be a food lover! Let’s face […]

“Protein” Bars

Microsoft Kitchen - Tue, 07/10/2018 - 02:00
These are so easy to make… and what a fabulous replacement for their high sugar boxed enemies! Thank you to Diane, who was a client of mine last January, for sending along this recipe! 1.5 c uncooked oats 1/2 c dried fruit (I used cranberries) 1/2 c chocolate chips or carob chips 1/2 c liquid […]

6 Cheese Facts And Tips – What You Should Know

Microsoft Kitchen - Sat, 07/07/2018 - 02:00
USING When you take cheese out of the refrigerator to use it in a recipe, it can be kept on the counter up to an hour, but put it back as soon as possible. The heat from a warm kitchen will soften the cheese, and the change in texture could make a difference in your […]

Copying and Filling Table Totals

Daily Dose of Excel - Fri, 07/06/2018 - 14:52

Suppose you have a table with a number of columns.

And suppose you wanted to sum the Num6 column. You’d select a cell in that column and use Alt+JT+T to add the totals row.

But Excel always sums the last column (that it’s able to) when it should really sum the one you’re on. That’s an easy enough fix

Private Sub Worksheet_Change(ByVal Target As Range) Dim lo As ListObject 'There's a lot that can go wrong here, so we'll just ignore everything On Error Resume Next 'Loop through every table on the sheet - but there should only be one IMO For Each lo In Me.ListObjects 'If the range you're changing is exactly the same as the total row, 'you're probably adding the total row. If there is no total row 'you get an error - thus the on error above If Target.Address = lo.TotalsRowRange.Address Then 'If you selected a cell in the table, that's the column you want to sum If Not Intersect(ActiveCell, lo.Range) Is Nothing Then lo.ListColumns(ActiveCell.Column - lo.DataBodyRange.Column + 1).TotalsCalculation = xlTotalsCalculationSum End If Exit For End If Next lo End Sub

That won’t stop the last column from also being summed, but it’s easier to destroy than create. I’ll let that happen and go delete it if I don’t want it. But we’re not done yet. The craziness is just starting. By the way, I’m using Office 2010. If they fixed any of this stuff in later versions, bully for them, but I’m still not upgrading.

The formula to sum Num6 is: =SUBTOTAL(109,[Num6]). If I copy and paste that to Num5

The formula stays the same. That’s consistent with how copying formulas that use Structured Table Referencing (STR), but it really stinks in this case. If I want to sum all of the columns, I have to go select the appropriate aggregate function from the list. I could change the STR into normal cell references, but then I lose the table goodness.

One option is to select a cell in Num5 and press Alt+JT+T+Alt+JT+T. Turning the totals row off and then on again sums up for that column by calling the code I wrote above. The fact that this works means I should have check to see if there was already an aggregate in the cell before I overwrote it. That is, if I had a count formula in there and turned the total row off and then on again, I’d kill that row. If I fix that, this workaround doesn’t work. But it’s the right thing to do.

If IsEmpty(Intersect(lo.TotalsRowRange, ActiveCell.EntireColumn).Value) Then lo.ListColumns(ActiveCell.Column - lo.DataBodyRange.Column + 1).TotalsCalculation = xlTotalsCalculationSum End If

Well that doesn’t work. If I have =SUBTOTAL(103,[Num5]) in the cell and turn on and off the total row, it changes to =SUBTOTAL(109,[Num5]).

I think what’s happening here is that Excel tables have a good memory. Once I change the aggregate to sum, that becomes the default for that column. When you show totals for the first time, the event sequence is (with the Target in parentheses)

  1. Add the total row (A5:H5)
  2. Add the total label (A5)
  3. Aggregate the last column (H5)

When I re-show the total row after having changed the aggregate, the event code changes the default aggregate, and when the table restores the formula it’s using the that aggregate. Assume I’m in Num7 when I show totals the first time. Then I move to Num5, add a count, and hide and show totals.

Event Target Num5 Default Aggregate Show Totals 1st time A5:H5 SUM Add label A5 SUM Aggregate Num7 (automatic) H5 SUM Add Count to Num5 (manual) F5 COUNT Hide Totals A5:H5 COUNT Show Totals 2nd time A5:H5 COUNT Change Event F5 SUM Add label A5 SUM Aggregate Num5 (automatic) F5 SUM Aggregate Num7 (automatic) H5 SUM

The second-to-last change is Excel restoring the Num5 total from the last time. It doesn’t restore it to what it was, it restores it to whatever the last aggregate used was. Since I interjected some code between the adding of the row and the restoration of the aggregate, I changed the default for that column. At least I think that’s what happening.

Categories: Data, Microsoft

Honey Chipotle Turkey Meatballs

Microsoft Kitchen - Wed, 07/04/2018 - 02:00
I cannot wait to try these, they are such a great change from the normal heavy meat ball.  So many different options on how to use these as well!  You could also use this marinade on chicken or fish. Ingredients- Meatballs: ground turkey breast 1/2 yellow onion diced 2 garlic cloves, minced salt/pepper Mix all […]

Hyperlink Formula Events

Daily Dose of Excel - Mon, 07/02/2018 - 20:55

I like to use hyperlinks as user interface elements. They sit nicely in a cell, blend nicely with the surrounding data, and are well understood by users (blue underline means click here). Typically I’ll create a hyperlink that points to itself and then use the FollowHyperlink event to do stuff when it’s clicked.

If a user were to insert rows or columns the hyperlink moves but not the cell it refers to. That is, inserting a column to the left will move the hyperlink to E3, but it will still point to D3. I don’t like it, but it’s not a deal breaker. It means that I can’t use the location of the link to determine which hyperlink was clicked. This is bound to fail:

If Target.Range.Address = Me.Range("D3").Address Then

I tend to use the caption, which, unlike the example above, is generally meaningful and unique. But not always.

If Target.TextToDisplay = "Click Me" Then

If each link points to a different place, I could use the SubAddress property

If Target.SubAddress = Me.Name & "!D3" Then

If there’s a space in the sheet name, there needs to be quotes around it. And if someone changes the sheet name, it mucks up the whole hyperlink. So there are a few things that can go wrong.

My biggest pet peeve is that I can’t use the HYPERLINK() function and the FollowHyperlink event together. That event only responds to inserted hyperlinks, not to links created by a formula. The use case for this is that I could add a column to a Table that had the HYPERLINK() function in it and that formula would automatically expand as the table expanded. Here’s a really contrived example.

When the user clicks a Jump link, it should go to that page. So in the case, the data I need is in the first column (the name of the sheet). Here’s a method I’ve been working on using the SheetChange event. When the user clicks on C2, that cell is selected. Then the link takes the user to A2 and that cell is selected. So I’m looking for a combination of column C then column A.

Private msLastAddress As String Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Me.ListObjects(1).ListColumns(1).DataBodyRange) Is Nothing And _ Target.Offset(0, 2).Address = msLastAddress Then Me.Parent.Worksheets(CStr(Target.Value)).Activate End If msLastAddress = Target.Address End Sub

The module-level variable holds the last cell that was selected. If the currently selected cell is in the first column of the Table and the last cell was two cells to the right, it’s a match. If you’re wondering why I included the seemingly meaningless data in the second column, I’ll tell you. This method fails a lot if the two columns are adjacent because any time you arrow to the left through the table, you’d fire off the code. Having a column B in between fixes that.

You’ve probably already guess that there are a few problems with this. You could arrow to somewhere in the Jumper column and then click in the Number column and trigger the code when you didn’t expect to. Plus whenever you’re dealing with selections, you need to account for multi-cell selections, which I don’t here. But I’m going to try it out and see how it goes.

One side effect of this was that it broke my keyboard hyperlink clicker. It used to look like this.

Public Sub FollowLink() Dim vaSplit As Variant Dim sForm As String Const sLINKFORM As String = "=HYPERLINK(" Const sIFFORM As String = "=IF(TRUE," On Error GoTo ErrHandler If ActiveCell.Hyperlinks.Count > 0 Then ActiveCell.Hyperlinks(1).Follow Else If InStr(1, ActiveCell.Formula, sLINKFORM) = 1 Then On Error Resume Next ActiveWorkbook.FollowHyperlink Evaluate(Replace(ActiveCell.Formula, sLINKFORM, sIFFORM)) On Error GoTo ErrHandler If Err.Number > 0 Then Err.Clear FollowSplitLink End If Else PTDrillDown End If End If ErrExit: On Error Resume Next Exit Sub ErrHandler: MsgBox Err.Description Resume ErrExit End Sub

When you use a ROW() function in the hyperlink address, the Evaluate returns a Variant array and this results in a Type Mismatch error. The relevant parts have been changed to

On Error Resume Next vEval = Evaluate(Replace(ActiveCell.Formula, sLINKFORM, sIFFORM)) If TypeName(vEval) = "Variant()" Then ActiveWorkbook.FollowHyperlink vEval(1) Else ActiveWorkbook.FollowHyperlink vEval End If On Error GoTo ErrHandler

Now if the result is a Variant array, it pulls the first element.

Categories: Data, Microsoft

Crisp Apple Pie

Microsoft Kitchen - Sun, 07/01/2018 - 02:00
Almost done:) Ingredients: Crisp Topping: 1/2 cup walnuts, chopped 3 tbsp ghee or butter, melted 2 tbsp raw honey salt 1 cup plain rolled oats 1/2 cup coconut or almond flour Pie Filling: 3 large honeycrisp apples (organic if possible, may need 4 since organic are smaller) 2 tbsp ghee or butter, melted 3 tbsp […]

Gluten Free Chocolate & Vanilla Marble Cake

Microsoft Kitchen - Thu, 06/28/2018 - 02:00
Last but not least….dessert:) I know the tradition is pie (which we do), but I have been dying to post this recipe that I adapted a few years ago from Fine Cooking. It is AMAZING. Keep in mind…just because I am posting this– a healthier version of dessert, does not mean you can eat the […]

Asparagus Coconut Chicken

Microsoft Kitchen - Mon, 06/25/2018 - 02:00
Ingredients: (double triple quadruple if needed!) 1 large chicken breast 1/3 cup almond meal/flour or coconut flour 3 tbsp. sweetened shredded coconut 1/2 tsp. garlic powder Salt & pepper, to taste 1/2 tsp. minced garlic, 1 clove 16 asparagus spears 1 large egg white Method: Preheat oven to 375 degrees F. Coat a skillet with […]

Grilled Mango & Real Food Challenge!

Microsoft Kitchen - Fri, 06/22/2018 - 02:00
Grilled Mangos with Jalepenos Memorial Day is not only an important American holiday but the beginning of grill season! This is an awesome side to any dish. Ingredients: 3 Mangos, peeled and sliced into flat pieces 2 jalepenos, sliced Cilantro, chopped 1 lime 1/2 cup plain green yogurt mixed with 2tbsp coconut milk (regular milk […]

Anti-Depression Foods: Omega-3 Foods List

Microsoft Kitchen - Tue, 06/19/2018 - 02:00
While it may surprise some that a “fat” would be suggested as an important food in preventing depression, it certainly is. Our bodies regularly need three types of nutrients: fats (or lipids), proteins and carbohydrates. There is substantial evidence to indicate that Omega-3 fatty acids serve to enhance the membranes of brain cells. Studies have […]

Anti-Depression Foods: Protein List

Microsoft Kitchen - Sun, 06/17/2018 - 02:00
High protein foods provide amino acids that enable the brain to function in a non-depressive state. A shortage of protein in the diet can increase likelihood of experiencing depression. Of course, the good news is that there’s an easy fix: eat a healthy diet with plenty of protein. This can vary, but for many of […]

Tomato Basil Soup

Microsoft Kitchen - Wed, 06/13/2018 - 02:00
I felt a little inspired by some cooler weather this week to post an end of summer/fall friendly recipe! Ingredients: (this makes enough for a family of four to eat twice or more) 3lbs tomatoes, sliced, just get close to 3lbs! 1 yellow onion, chopped 3 garlic cloves, pressed 1 red pepper, chopped 1/4 tsp […]

Creamy Mexican Grilled Chicken

Microsoft Kitchen - Sun, 06/10/2018 - 02:00
Make sure you get the grill master of the house- chicken can be tough to get right! This creamy marinade will help keep it from drying out. Ingredients: 1 cup full fat Greek yogurt 1 cup chopped cilantro 2tbsp fresh lemon juice (about 1 large lemon squeezed with a press) 3 garlic cloves, minced 1 […]

Anti-Depression Foods: Carbohydrate List

Microsoft Kitchen - Thu, 06/07/2018 - 02:00
Carbohydrates are often the volume filler that makes you feel you’ve had a satisfying meal. There are three categories of carbs: sugar, starch, and fiber. You generally want to aim for the more complex, less processed carb sources. The problem is that simpler carbs– like white flour and sugar—process too quickly, sending the body in […]

Sambal Petai (Chilli Smelly Beans)

Microsoft Kitchen - Tue, 06/05/2018 - 02:00
According to wiki, there’s a whole string of names for it Parkia Speciosa (scientific), bitter bean, smelly bean (English), Sataw (Thai), Petai (Malay & Indonesian) These delectable beans are one of God’s strange creation, you either love it or hate it; in terms of aroma and taste. Like asparagus, petai has high content of amino […]

Office 365 Pro Plus meets Windows 10S, they don’t fall in love.

Daily Dose of Excel - Sun, 06/03/2018 - 12:10

I recently purchased a couple of Surface Laptops, that run Windows 10S. I went to install a couple of my Office 365 Pro Plus licenses on them. Now I’m wondering what that S stands for (apart from ‘Security’), after coming up against these three immutable laws:

  • If you’ve got Windows 10S, you can only install apps from the Office Store. Okay…
  • If you’ve got an Office 365 Pro Plus subscription, you can install Office 365 Pro Plus on up to 5 devices that are “compatible with Windows 7 or later”. Yipee!
  • Office 365 Pro Plus is not available via the Office Store. What the!

Well that’s just plain Windows 10Stupid. Can someone from the Windows Store team explain that to someone from the Office Marketing team, so they can add “…unless you have Windows 10S” to their Office 365 Pro Plus copy, please?

Note that you can ‘upgrade’ your Windows 10S devices to a non 10S version that lets your kids download viruses unassisted. But unless you’re willing to open that Pandora’s Box, Microsoft effectively stymie you from installing their own software on their own operating system. Nuts. Absolute nuts.

Ah well. In other Office 365 world news:

That is, unless they have Windows 10S and an Office 365 Pro Plus subscription, it seems.

Categories: Data, Microsoft
Syndicate content

eXTReMe Tracker